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PREFACE 


This  Note  is  one  of  five  documents  that  collectively  describe  the 
TSAR  and  TSARINA  computer  models  developed  at  The  Rand  Corporation  to 
assess  the  effect  of  air  attacks  on  the  sortie  generation  capabilities 
of  air  bases.  This  development  was  carried  out  under  the  Project  AIR 
FORCE  Resource  Management  Program  project  entitled,  "Strategies  To 
Improve  Sortie  Production  in  a  Dynamic  Wartime  Environment." 

The  Theater  Simulation  of  Airbase  Resources  (TSAR)  model  provides 
an  analytic  context  within  which  a  variety  of  airbase  improvements  may 
be  tested.  New  passive  defenses,  new  maintenance  doctrine,  modified 
manning  levels,  improved  base  repair  and  recovery  capabilities, 
increased  stock  levels  for  parts  and  equipment,  etc.,  as  well  as  con¬ 
cepts  for  improved  theater-wide  resource  management,  all  can  be  examined 
for  their  effect,  on  aircraft  sortie  generation.  These  models  have  been 
briefed  to  several  Air  Force  organizations  during  the  development  pro¬ 
cess  . 


This  volume  of  the  User's  Manual  will  be  useful  primarily  for  those 
that  are  interested  in  modifying  and  extending  the  existing  program 
logic,  or  are  trying  to  understand  apparent  errors.  The  companion  docu¬ 


ments  include: 

K-2584-AF 

N-1460-AF 

N-1820-AF 


Introduce  ion  to  the  TSAR  Simulation  Program 
Model  Features  and  Logic 

TSARINA — User's  Guide  to  a  Computer  Model  for 

Damage  Assessment  of  Complex  Airbase  Targets 

TSAR  User's  Manual:  Vol,  I — Program  Features, 
Logic,  and  Interactions 


eorr 

lMWMCTCO 

V !  y 


/l  /  oi«i 
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N-1821-AF  TSAR  User’s  Manual:  Vol.  IT — Data  Input,  Program 

Operation  and  Kedimensioning,  and  Sample  Problem 

Other  documents  are  planned  that  will  discuss  the  problems  associ¬ 
ated  with  data  acquisition  for  these  models,  and  will  present  the  pro¬ 
cedures  currently  under  development  at  Rand  to  assist  in  solving  those 
problems . 
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GLOSSARY 

AGE  Aerospace  ground  equipment  and  other  equipment  used  for 

carrying  out  various  tasks 

AIS  Avionics  Intermediate  Shops;  special  test  equipment  used 

for  repairing  avionic  LRUs  and  SRUs . 

BLSS  Base-level  self  sufficiency  stock  of  aircraft  spare  parts 

CAP  Combat  Air  Patrol 

CAS  Close  Air  Support 

CILC  Centralized  Intermediate  Logistics  Concept 

CIRF  Centralized  Intermediate  Repair  Facility 

COB  Collocated  Operating  Base 

COMO  Combat  Oriented  Maintenance  Organization 
CONUS  Continental  United  States 

FRAG  Fragmentary  order  that  specifies  flight  requirements 

LCOM  Logistics  Composite  Model 

LRU  Line  replaceable  unit;  an  aircraft  spare  part 

MOB  Main  Operating  Base 

NMCS  Not  mission  capable  because  of  lack  of  spare  parts 

NORS  Not  operationally  ready  because  of  lack  of  spare  parts;  same 
as  NMCS 

NRTS  Not  reparable  this  station 

OST  Order  and  ship  time  in  days 

PAA  Program  Authorization,  Aircraft 

POL  Petroleum,  oils  and  lubricants;  often  used  as  an  abbreviation 

for  aircraft  fuel 
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RAM  Rapid  area  maintenance;  special  mobile  teams  used  for 

repairing  aircraft  battle  damage 

RR  Flight  line  maintenance  that  removes  and  replaces 

malfunctioning  aircraft  parts  with  serviceable  components 

RRR  Flight  line  maintenace  that  removes,  repairs,  and  replaces 

aircraft  spare  parts  (actually,  usually  removes  and  replaces 
with  a  serviceable  unit,  and  then  repairs  malfunctioning  unit) 

RRR  Rapid  runway  repair 

SAMSOM  Support  Availability  Multi-System  Operations  Model 

SCL  Standard  combat  load  that  designates  the  mission  dependent 

munitions  to  be  loaded 

SRU  Shop  replaceable  unit;  a  component  of  an  LRU 

TRAP  Tanks,  racks,  adaptors  and  pylons 

TSAR  Theater  Simulation  of  Airbase  Resources 

TSARINA  TSAR  Inputs  using  AIDA 

WRM  War  Reserve  Material 

WRSK  Wartime  readiness  spares  kit 
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APPENDIX  A 
VARIABLES  IN  COMMON 

Definitions  for  most  of  the  270  variables  carried  in  one  or  another 
of  the  several  major  blocks  of  Common  data  are  listed  in  this  section  in 
alphabetical  order.  The  remainder  are  listed  below  in  the  table  of 
arrav  dimensions  and  control  data: 


ARRAY 

NAME 

ARRAY 

LENGTH 

CURRENT 

NUMBER 

OF  ENTRIES 

FIRST 

EMPTY 

LOCATION 

LAST 

EMPTY 

LOCATION 

OVERFLOW 

TALLY 

ACN 

MAXACN 

NEH 

— 

— 

OV'ERA 

BACKLG 

LLQ 

NEL 

FEL 

LEL 

OVERL 

Bl'ILDQ 

LBQ 

NEB 

FEB 

LEB 

OVERB 

CEJOBQ 

LTHCEQ 

NEC 

FEC 

LEC 

OVERC 

CHANGE 

NOCHG 

NEV 

FEV 

LEV 

OVERV 

DEFTSK 

LDT 

NED 

FED 

LED 

OVERD 

FLTRQT 

LFQ 

NEF 

FEF 

LEF 

OVERF 

INTTSK 

LIQ 

NEI 

FEI 

LEI 

OVER  I 

LIMBO 

NLIMBO 

NEX 

FEX 

LEX 

OVERX 

NORQ 

LNOR 

NEO 

FEO 

LEO 

0VER0 

PILOT 

NOCREW 

NPILOT 

— 

— 

OVERM 

REPQ 

LRQ 

NER 

FER 

LER 

OVERR 

RESUPP 

I.GQ 

NEG 

FEG 

LEG 

OVERG 

RQDTSK 

LNT 

NEN 

FEN 

LEN 

OVERN 

SHIP 

NOSHIP 

NES 

FES 

LES 

OVERS 

SHIPQ 

NOPKG 

NEP 

FEP 

LEP 

OVERP 

SHPTSK 

NOTASK 

— 

— 

— 

OVERK 

TASKQ 

LTQ 

NET 

FET 

LET 

OVERT 

WAITSK 

LWQ 

NEW 

FEW 

LEW 

OVERW 

REJOIN 

NJOINT 

NEJ 

FEJ 

LEJ 

OVERJ 

ADAPTR  NRTS  policy  for  RR  parts  is  changed  when  there  are  fewer 
LRUs  than  ADAPTR  percent  of  initial  LRU  stocks;  they  are 
shipped  to  lateral  resupply  base,  rather  than  nominal 
NRTS  destination. 

ALERTR  Is  set  to  unity  if  personnel  are  required  to  be  assigned 

for  alert  aircraft. 

AIDA  Is  zero  unless  the  base  damage  input  data  are  generated 

with  the  TSARINA  model.  When  not  zero  the  resource 
damage  data  may  be  specified  both  for  specific  tvpes  and 
for  all  other  types.  AIDA  is  set  to  two  if  the  expected 
value  mode  is  used  in  TSARINA  for  computing  damage  to 
aircraft  shelters;  otherwise  it  is  one. 
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ATRISK  When  a  shop  facility  or  all  elements  of  a  distributed 
shop  are  damaged  at  the  time  of  a  subsequent  attack 
the  resources  assigned  to  that  shop  are  assumed  to  have 
been  relocated  and  to  be  invulnerable  if  ATR1SK  is  zero; 
if  ATRISK  is  unity,  the  damage  is  assessed  as  though 
operations  were  normal. 

AVGTT  The  average  shipment  time,  in  hours,  from  a  CIRF  to  the 

operating  bases;  computed  internally. 

BUILD  If  unity,  the  munitions  buildup  features  are  activated. 

CANCAN  Is  set  to  unity  when  a  part  may  be  cannibalized  even 

though  there  is  a  reparable  part  on  base. 

CANFLT  A  flag  that  is  set  to  unity  when  the  remaining  segments 
of  a  composite  flight  must  be  canceled. 

CANMOD  Cannibalization  mode  (see  subroutine  CANNIB). 

CANMUL  Task  time  when  a  part  is  cannibalized;  expressed  as  a 

percentage  of  the  nominal  time  for  the  task  segment  that 
specifies  the  part  (default  =  150). 

CANSRU  If  greater  than  zero,  the  SRUs  are  removed  from  an  LRU 
that  is  waiting  for  repair  at  an  operating  base,  if 
aircraft  are  NORS  because  of  the  LRU;  at  a  CIRF,  an  LRU  is 
"cross-canned"  if  CANSRU  aircraft  in  the  theater  have 
this  LRU  missing. 

CCIRF  Control  mode  for  CIRF  operations. 

CDELAY  The  default  time  for  cannibalization  is  one-half  the 
related  on-equipment  task  time,  plus  CDELAY  minutes. 

CEAGE  The  number  of  types  of  equipment  associated  with  civil 

engineering  tasks. 

CEDELY  Initiation  of  all  reconstruction  tasks  is  delayed  by  this 
number  of  minutes  after  an  airbase  attack,  to  account  for 
the  preliminary  delays  involved  in  overcoming  the 
disruptive  effects  of  fires,  roadway  damage,  etc.  This 
delay  is  modified  to  reflect  the  weight  of  the  attack  when 
TSARINA's  variable  delay  option  is  used. 

CEPEO  The  number  of  types  of  personnel  associated  (exclusively) 

with  civil  engineering  tasks. 

CEWORK  Switch;  when  =  1,  civil  engineering  resources  are  allocated 
to  repair  damage  from  airbase  attacks  in  accord  with  the 
priorities  defined  by  the  CEPRTY  array. 
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CIRFLG 

CONCUR 

CONS  I G 

CRASH 

CRBLDG 

CREWS 

Cl'MSTA 

CMODE 

CTHEA 

C4INT 

C4TM 

DAMODE 

DELYPF 


Lateral  resupply  flag;  is  set  to  unity  when  part  is  to  be 
taken  from  first  base  that  can  release  a  part;  it  is  set 
to  2  if  the  base  best  able  to  provide  the  part  is  to  be 
sought . 

If  unity,  battle  damage  repair  jobs  may  be  initiated 
concurrently  with  the  first  of  the  other  unscheduled 
maintenance  tasks;  otherwise,  the  battle  damage  tasks  are 
scheduled  before  all  other  maintenance  activity. 

If  zero,  any  parts  that  are  shipped  to  the  theater  to 
replace  condemned  parts,  and  LRUs  that  were  NRTSed  to 
CONUS,  are  consigned  to  the  base  of  origin  on  return;  if 
unity,  all  parts  are  consigned  to  the  theater  manager  for 
distribution. 

When  runways  are  closed  at  all  operating  bases  (and  at 
any  emergency  base)  recovering  aircraft  will  be  lost  if 
this  variable  is  initialized  to  unity;  if  not  initialized, 
the  sortie  length  is  artifically  extended  such  that  the 
aircraft  will  land  after  the  runway  at  the  planned 
recovery  bas,.  lias  been  opened. 

Unless  civil  engineering  resources  are  sufficient  to 
initiate  repairs  to  all  damaged  facilities  up  to  and 
including  this  priority,  reconstruction  tasks  are  pursued 
with  secondary  procedures  using  lesser  resources. 

Air  crews  are  accounted  for  when  =  1;  neglected  if  0. 

If  0  the  task  time  and  delay  data  are  cumulated  for  each 
trial;  if  =  1,  the  data  are  cumulated  over  all  trials. 

When  not  zero  defines  the  mode  of  operation  for  theater 
resource  management  (see  Section  XI). 

Control  mode  for  theater  resource  management. 

Time  interval  in  hours  between  periodic  theater  resource 
reviews,  subsequent  to  the  initial  review. 

Time  for  initial  theater  resource  review-hours. 

Internally  generated  flag  that  denotes  the  mechanism  being 
used  to  input  damage  data: 

0  =  User  supplied  card  image  damage  data 

1  =  Single=attack  damage  stored  on  disk  for  all  trials 

2  =  Separate  damage  data  stored  for  each  trial. 

During  the  time  that  DELYPF  is  unity  the  preflight 
assignment  task  is  delayed  until  LOAD^'M. 
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DOLD  Number  of  the  last  aircraft  to  have  a  task  entered  into 

the  deferred  task  array. 

DOWNTM  Parts  may  not  be  cannibalized  from  an  aircraft  with  a 
ready-to-fly  time  within  "DOWNTM"  hours. 

EF  Pointer  to  the  location  of  the  earliest  flight  to  be 

launched . 

EMERG  Base  designated  for  emergency  recovery  when  runways  are 

cut  at  all  operating  bases;  may  be  the  same  as  a  rear 
maintenance  base.  (See  p.  80,  Vol.  II,  for  unique  task 
sequence  requirements  at  this  base.) 

ENDAY  End  of  the  nominal  flying  day  (used  to  control 

accomplishment  of  deferred  maintenance)  -  hours. 

EXPED  When  greater  than  zero,  the  parts  repair  and  equipment 

repair  administrative  delays  are  reduced  by  1/EXPED  when 
there  are  no  serviceables  available. 

When  initialized  to  unity,  an  NTRIAL  simulation  is  a 
one-trial  simulation  of  NTRIAL  x  SIMLTH  days. 

Pointer  to  the  next  arrival  of  an  intra-theater  shipment. 

Pointer  to  the  next  departure  of  an  intra-theater 
shipment . 

Controls  use  of  filler  force  aircraft. 

FIXAGE  Set  to  unity  if  equipment  may  be  broken  and  repaired. 

FLEVEL  When  zero,  augmentee  and  filler  aircraft  are  managed  so 
as  to  maintain  the  number  of  aircraft  on  base  equal  to 
the  assigned  numbers;  when  unity,  the  non-battle  damaged 
aircraft  are  maintained  equal  to  the  assigned  number; 
when  two  or  three,  the  aircraft  or  aircraft  without  battle 
damage  are  maintained  equal  to  the  capacity  of  the 
available  aircraft  shelters. 

FSALVG  If  an  aircraft  is  damaged  by  air  attack  and  is  not  reparabL 
FSALVG  percent  of  the  aircraft's  spare  parts  not  destroyed 
during  the  attack  are  salvaged  and  added  to  the  serviceable 

FULL  If  unity,  all  parts  are  on  base,  none  enroute,  at  time 

zero  (identified  as  NOPIPE  in  Common). 

HIATUS  Delivery  of  parts  in  the  pipeline  at  the  beginning  of  the 
simulation  are  delayed  HIATUS  days. 

HPEOl  Used  for  transferring  the  identity  of  personnel  scheduled 

HPF.02  for  release  among  subroutines. 


EXTEND 

FA 

FD 

FILLAC 
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IDAY  Number  of  days  for  which  the  sortie  data  are 

aggregated  across  trials;  IDAY  is  1  if  SIMLTH  is 
30  or  fewer  days,  2  if  from  31  to  60,  and  3  if 
between  61  and  66  days. 

IGNORE  When  initialized  to  unity,  all  jobs  that  may  be  deferred 
for  all  missions  are  ignored. 

INDEX  A  threshold  used  when  checking  repair  jobs  waiting  at  a 

CIRF;  if  exceeded  as  jobs  are  checked,  the  job  is 
processed  without  checking  for  a  higher  priority  job. 

The  appropriate  value  to  set  will  depend  upon  which  of 
the  two  logics  (PRTY1  or  PRTY3)  is  in  use. 

ISHORT  Parts  shortfall  from  "authorized"  levels  (percent). 

ITRIAL  Number  of  the  current  trial. 

J0BC0N  Controls  extent  of  rear-base  maintenance. 

K1L0W  For  parts  that  are  "critically  short"  (see  TOOFEW) ,  the 

K2L0W  actual  stock  level,  as  a  percentage  of  the  nominal  stock 

level,  is  selected  at  random  in  the  range  K1L0W  and 
(K1L0W  +  K2L0W) . 

LA  Pointer  to  the  last  scheduled  arrival  of  an  intra-theater 

shipment . 

LD  Pointer  to  the  last  scheduled  departure  of  an 

intra-theater  shipment. 

LF  Pointer  to  the  location  of  the  last  flight  to  be 

launched . 

LOADTM  Nominal  time  of  day  to  commence  preflight  preparation 
for  the  day  (hour). 

LOSTAC  Cumulative  number  of  aircraft  lost  in  air  operations  and 
air  base  attacks. 

LSTT.OD  Last  time  of  day  for  commencing  morning  preflight  (used 
to  limit  expected  time  for  deferred  tasks)  (an 
even-numbered  hour  only). 

LTHATT  Length  of  ATTACK  array;  maximum  number  of  airbase  attacks 
that  may  be  scheduled  during  a  simulation. 

LTHCEQ  Length  of  CEJOBQ  array;  maximum  number  of  simultaneous 
civil  engineering  tasks. 

LTHLST  Length  of  LISTIN  array;  maximum  number  of  task- 
incompatibility  descriptors. 
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MULTI 

MAXACN 

MAXB 

MAXFLT 

MAXM 

MAXMNT 

MAXPER 

MAXREC 

MAXT 

MAXTME 

MNTI.MT 

MNTF 

MNTR 

MULTI  1 

MULTI  2 

MXHOLE 


Number  of  flights  stored  temporarily  while  checking  for  a 
composite  flight. 

Maximum  number  of  aircraft  that  can  be  accommodated  (size 
of  the  ACN  array). 

Maximum  number  of  airbases  (limit  =  9). 

Current  number  of  periodic  flight  schedules  entered  in 
the  PRDFLT  array. 

Maximum  number  of  missions  for  each  type  of  aircraft 
( limit  =  5) . 

When  the  projected  maintenance  time  exceeds  MAXMNT,  a 
filler  aircraft  may  be  requistioned  (see  also  FILLAC  and 
FLEVEL1 . 

Maximum  number  of  periodic  flight  schedules  that  may  be 
stored;  dimension  of  the  PRDFLT  array. 

Maximum  number  of  items  stored  in  daily  aircraft  activity 
report;  dimension  of  RECORD  array. 

Maximum  number  of  aircraft  types  (limit  =  9). 

The  time  remaining  for  deferred  maintenance  before  LSTTOD 
(reassessed  every  30  minutes  in  MANAGE). 

If  the  time  estimated  for  getting  an  aircraft 
ready  to  fly  exceeds  MNTLMT  (and  certain  other  conditions 
are  fulf i  1  led--see  Card  Type  # 3/2),  the  aircraft  is  ferried 
to  a  rear  base  for  the  required  maintenance. 

In  considering  whether  an  aircraft  is  to  be  sent  to  the 
rear  for  maintenance,  MNTF  and  MNTR  are  used  in  the 
decision  algorithm  (see  Card  Type  #3/2). 

When  a  base's  projected  sortie  generation  capability  per 
assigned  aircraft  is  greater  by  MULTI1  percent  than  that 
of  the  parent  base  of  an  aircraft,  the  aircraft  is 
retained  and  is  not  returned  to  the  parent  base. 

Aircraft  reassignment  (effective  if  STATE  =  3)  occurs  among 
bases  whose  projected  sorties  per  available  aircraft 
differ  by  more  than  MULTI2  percent. 

Tiie  maximum  number  of  missing  parts  (holes)  that  aro 
permitted  on  a  particular  aircraft  (default  =  100001. 


NBASE 


The  number  of  bases  that  operate  aircraft. 
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NCARGO 

NCONUS 

NESHP 

NEWDTA 

NEWPRT 

NEXTIN 

NEXTSC 

NJOINT 

NLIMBO 

NOAGE 

NOATT 
NOB  1 1, D 

NOCE 

NOCHG 

NOCREW 

NOCONF 

NOCOSS 

NOFAC 


Length  of  the  CARGO  array;  maximum  number  of  items  in  the 
support  shipments  from  CONUS. 

Number  of  the  next  shipment  from  CONUS. 

Number  of  daily  intra-theater  shipments. 

The  time  at  which  theater  resource  reports  are  to  be 
initiated;  only  applicable  if  OLDATA  is  initialized  as 
zero . 

A  switch:  when  unity,  the  automatic  parts  initialization 
computations  are  repeated  for  each  trial. 

Next  time  that  the  sortie  demand  data  are  to  be  read  and 
reorganized . 

Next  Lime  that  the  sortie  demand  data  are  to  be 
reorganized . 

Length  of  the  REJOIN  array. 

Length  of  the  LIMBO  array;  maximum  number  of  parts  and 
equipments  undergoing  an  administrative  delay. 

Length  of  AGESTK  array;  maximum  number  of  types  of  AGE 
and  other  equipment. 

Number  of  attacks  stored  in  the  ATTACK  array. 

Length  of  the  MUNRQT  array;  maximum  number  of  munition 
assembly  procedures. 

Length  of  CERQTS  array;  maximum  number  of  civil 
engineering  procedures. 

Length  of  the  CHANGE  array;  maximum  number  of  scheduled 
parameter  changes. 

Length  of  the  PILOT  array;  maximum  number  of  air  crews 
accommodated  in  the  theater. 

Length  of  the  CONFIG  array;  maximum  number  of 
conf igurat ions . 

Length  ot  CONUS  array;  maximum  number  of  support 
shipments  from  CONUS. 

Length  ot  FAULTY  array;  maximum  number  of  airbase 
f ac i 1 i t ies  . 


NO FUEL 


It  unity,  other  proflight  tasks  are  prohibited  during 
re  t  ue 1  i n g . 
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NOITEM 

NOLD 

NOMATL 

NOMUN 

NONUNI 

NOPART 

NOPEOP 

NOPIPE 

NOPKG 

NOPOMO 

NOPRT 

NOREP 

NOREPA 

NOREPT 

NORPT 


Length  of  DAMAGE  array;  maximum  number  of  damage  data  for 
airbase  attacks. 

Number  of  the  last  aircraft  to  have  a  task  stored  in  the 
required  task  array  (RQDTSK). 

Length  of  the  MATERL  array;  maximum  number  of  types  of 
materials  for  civil  engineering  tasks. 

Length  of  MUNSTK  array;  maximum  number  of  types  of 
munitions . 

Switch;  when  unity,  resource  losses  determined  by  sample 
from  binomial  distribution. 

Length  of  PARTS  array;  maximum  number  of  parts  that  may 
be  specified. 

Length  of  PEOPLE  array;  maximum  number  of  personnel  types 
that  may  be  specified. 

When  unity,  all  parts  computed  by  the  automatic  parts 
generation  logic  are  on-base  at  the  beginning  of  the 
simulation;  none  are  in  the  parts  pipelines. 

Length  of  SHIPQ  array;  maximum  number  of  sets  of  items 
that  may  be  waiting  for  intra-theater  shipment. 

The  average  additional  on-equipment  task  time  that  is 
required  at  a  base  operating  under  66-1,  when  the  data 
apply  to  66-5  activities. 

Length  of  the  PRTCRT  and  PRTLST  arrays  (need  only  equal 
the  highest  position  in  the  PARTS  array  in  which  a  part 
or  LRU  is  found) . 

Length  of  REPRQT  array;  maximum  number  of  parts  repair 
procedures . 

Length  of  REPALT  array;  maximum  number  of  alternate  parts 
repair  procedures. 

Length  of  REPORT  array;  maximum  number  of  resource 
reports  that  may  be  scheduled  during  a  single  day. 

Number  of  report  times  stored  in  the  REPORT  array. 

When  NOSAVE  =  1,  records  are  not  saved  for  parts  that  break 
after  an  air  attack  has  closed  the  shop  that  would  normally 
process  the  repair,  if  the  projected  shop  reconstitution 
time  is  not  earlier  than  the  end  of  the  simulation. 


i 

i 


NOSAVE 
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NOSCL  Length  of  SCLRQT  array;  maximum  number  of  combat  loadings 

that  may  be  specified. 

NOSHIP  Length  of  SHIP  array;  maximum  number  of  intra-theater 
shipments  that  may  be  scheduled  at  one  time. 

NOSHP  Length  of  SHIPSC  array;  maximum  number  of  daily 

intra-theater  shipments  that  may  be  stored. 

NOSTAT  Maximum  number  of  types  of  AIS  stations  in  the 
simulation. 

NOTASK  Maximum  number  of  tasks  in  each  shop  group  for  each  type 
of  aircraft  (must  be  a  multiple  of  41. 

NTRIAL  Number  of  repetitions  of  the  simulation. 

NOTRAP  Length  of  TRAP  array;  maximum  number  of  TRAP  types. 

NOTRAY  Maximum  number  of  trays  (one  for  each  LRU)  in  the 
simulation. 

NOTSK  Length  of  TSKRQT  array;  maximum  number  of  on-equipment 

maintenance  procedures. 

NOTSKA  Length  of  TSKALT  array;  maximum  number  of  alternative 
on-equipment  task  procedures. 

NOUSER  Length  of  the  BORROW  array. 

NOW  Current  simulation  time  (TTU) . 

NPART  The  number  of  the  highest  numbered  LRU  or  SRU  (default 

is  NOPART). 

NRTPOL  If  unity,  an  LRU  that  requires  an  unavailable  SRU  that 
is  not  nominally  stocked  is  NRTSed. 

NSCROL  Maximum  number  of  aircraft  whose  activities  may  be  stored 
in  the  RECORD  array  (maximum  =  24) . 

NTYPE  Number  of  aircraft  types  to  be  employed  in  the  simulation 

(may  be  less  than,  or  as  great  as,  MAXT) . 

NXSCH  Next  time  at  which  the  intra-theater  shipments  are  to  be 

rescheduled . 

OLDATA  Base  resource  reports  are  generated  when  zero  and 

deferred  initially  while  equal  to  unity. 
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OPSBSE 

0RDER1 

0RDER2 

ORDIT 

ORDWT 

OUTFIT 

OVERFL 


OVERTM 

PKGTM 

PMODE 


Number  of  bases  used  in  the  simulation  for  supporting 
combat  operations;  excludes  rear  maintenance  bases  and 
the  emergency  recovery  base,  when  one  is  used. 

Threshold  controlling  CIRF  response  to  parts  shortages; 
responds  only  if  (Enroute  Parts  +  On-base  Repairables  - 
Required  Parts)  is  less  than  or  equal  to  0RDER1. 

Threshold  controlling  an  operating  base's  recourse  to 
lateral  resupply,  seeks  lateral  resupply  only  if  (On-base 
Reparables  -  Required  Parts)  is  less  than  or  equal  to 
0RDER2.  (Reparables  are  assessed  only  if  the  shop  is 
open  and  functioning.) 

Interrupted  tasks  and  repairs  are  prioritized  when 
ORDIT  =  1;  FIFO  if  0. 

Waiting  tasks  and  repairs  ar“  prioritized  when  ORDWT® 1; 
FIFO  if  0. 

Activates  the  automatic  parts  stock  initialization. 

Value  controls  simulation  behavior  if  the  dimensions  of 
the  arrays  used  to  store  internally  generated  data  are 
exceeded : 

When  OVERFL  =  0,  simulation  stops; 

=  1,  overflow  noted  and  tabulated; 

=  2,  overflow  noted  for  first  entry 
and  tabulated; 

=  3,  overflow  tabulated. 

This  feature  must  be  used  with  caution  because  program 
behavior  can  become  highly  erratic  when  records  are 
discarded.  In  any  event  execution  is  terminated 
automat i ca 1 1 v  at  the  end  of  any  day  when  the  cumulative 
number  of  discarded  records  is  20  or  more. 

Number  of  minutes  of  overtime  permitted. 

Number  of  minutes  required  to  package  resources  for 
intra-theater  shipment. 

When  unity,  parts  initialization  for  WRSKs  approximate 
DO-29;  otherwise  the  Chapter  11  procedures  from  AFM  67-1 
apply. 

If  zero,  all  unscheduled  maintenance  tasks  must  be 
accomplished  prior  to  next  flight;  if  =  1,  tasks  will  be 
deferred  (postponed)  that  are  not  critical  for  next 
mission. 


P0STPN 
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PPRINT  Controls  output  summaries  of  the  initial  stock  levels  and 
the  parts  pipelines  (see  subroutine  IPARTS).  When 
increased  by  10,  residual  parts  levels  are  listed  after 
the  delay  statistics. 

PRINT  Value  controls  content  of  simulation  output. 

PROTME  When  insufficient  aircraft  are  ready  for  a  scheduled 
flight,  and  none  can  be  found  in  the  spare  queue  or  a 
lower  piority  alert,  an  aircraft  can  be  taken  from 
another  scheduled  flight  of  the  same  or  lower  priority  if 
the  flight  time  is  at  least  PROTME  minutes  later 
(default  =  30  minutes). 

QUIK  If  zero,  filler  aircraft  are  launched  when 

the  aircraft  being  replaced  arc  sent  to  the  rear;  if 
unity,  the  filler  aircraft  are  launched  as  soon  as  the 
decision  is  made  to  send  aircraft  to  the  rear. 

RANDM  When  unity,  parts  shortages  and  the  location  of  parts  in 

the  pipelines  are  determined  with  samples  from  the 
Poisson  approximation  of  a  binomial  distribution. 

REST  Minimum  number  of  minutes  for  aircrews  between  flights. 

RPARTS  User  specified  fraction  of  the  generated  spare  parts 

stocks  that  are  placed  at  the  rear  maintenance  base  to 
service  aircraft  taken  to  the  rear  because  the  estimated 
ready -to- fly  time  exceeded  MNTLMT. 

SCROLL  When  unity,  daily  activity  reports  are  preserved  for  24 
specified  aircraft  for  a  specified  number  of  days. 

SCR0L1  Aircraft  number  of  the  first  of  the  24  aircraft  for  which 
a  daily  activity  report  is  prepared. 

SCR0L2  Number  of  last  of  24  aircraft  for  which  a  daily  activity 
report  is  prepared. 

SEED  If  not  zero,  the  value  used  for  the  seed  of  the 

random-number  generator  is  controlled  (i.e.,  is 
prespecified  by  the  local  operating  system). 

SEEKSH  When  unity,  another  in-theater  shop  is  sought  for  parts 
repair  when  the  nominal  shop  is  closed  by  damage. 

SELECT  When  not  zero,  a  daily  summary  of  sortie  demands  is 

prepared  to  facilitate  selection  of  bases  for  sorties. 

>  1  Summary  data  used  when  base  not  specified 

>  2  Summary  data  used  for  reallocating  demands  on 

airbases  with  closed  runways 
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SHOPRY 

SHPDLY 

SHPREP 

SIMLTH 
SLEEP 
SPARE  1 
SPARE9 
STATE 

>  1 
>  2 

>  3 

STATFQ 

TCONUS 

TEST 

TEST1 


Controls  the  choice  of  rules  for  prioritizing  repairs  at 
a  CIRF. 

This  delay  is  introduced  to  all  on-  and  of f -equipment 
aircraft-related  tasks,  to  account  for  the  disruption 
following  an  airbase  attack.  It  is  modified  to  reflect 
the  weight  of  the  attack  when  TSARINA's  variable  delay 
option  is  used. 

If  not  zero,  all  parts  repaired  at  an  operating  base  are 
shipped  to  the  base  selected  with  the  SEND  logic  in  the 
CONTRL  subroutine,  when  (On-base  NORS  Aircraft  -  Required 
Parts)  is  greater  than,  or  equal  to,  SHPREP. 

Length  in  days  of  the  period  to  be  simulated. 

Minimum  number  of  off-duty  hours  between  shifts. 

Nine  undefined  variables  included  in  the  BASIC  common 
for  future  requirements. 


If  not  zero,  the  state  of  each  base's  capability  to 
generate  sorties  is  computed  daily. 

Base-state-data  used  to  select  base  for  diversion 
Base-state-data  used  to  decide  when  aircraft  recover 
at  their  parent  base  (see  MULTI  1) 

Aircraft  base  assignment  reorganized  nightly  when 
work-loads  are  disproportionate  (see  MULTI2) 

The  frequency,  in  days,  with  which  the  summary  data 
regarding  the  average  length  of  time  for  tasks  and  jobs, 
and  the  causes  and  lengths  of  the  aircraft  delays,  are 
printed.  If  STATFQ  =  0,  these  data  are  not  collected  or 
printed . 

Time  of  the  next  shipment  from  CONUS. 

Controls  internal  debugging  features.  If  >0  diagnostic 
messages  are  printed  for  the  entire  simulation;  if  -1,  a 
special  card  must  follow  that  defines  the  number  of  the 
trial  and  the  time  intervals  during  which  the  debugging 
data  are  required. 

The  value  for  TEST  during  the  specified  intervals  for 
debugging  output. 

If  unity,  parts  that  are  normally  NRTSed  to  another  base 
but  can't  be  because  no  shipment  schedule  exists,  are 
held  for  later  lateral  repair  rather  than  being  sent  to 
CONUS . 


T0D0CK 
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TOOFEW 

TPLAN 

TSAR 

TTRIAL 

UNCER 

VBREAK 

VERIFY 

WHEN2 

WXDAYS 

XTEST 


If  positive,  the  parts  supply  system  is  critically  short 
of  a  percentage  of  aircraft  spare  parts  (equal  to  TOOFEW/IO); 
the  part  numbers  that  are  short  are  selected  at  random. 

If  "-1",  the  probability  a  part  is  short  is  proportional 
to  the  cost  of  the  part. 

Time  that  aircraft  supply  and  demand  were  last  projected. 

Controls  theater  resource  management;  is  initialized  to 
unity  if  the  management  of  resources  is  to  be 
centralized;  is  initialized  to  "2"  if  the  theater  also  has 
a  CIRF  for  parts  repair. 

The  number  of  the  trial  during  which  special  debugging 
data  is  to  be  output. 

When  initialized  with  the  number  of  a  distribution  from 
the  TTIME  subroutine,  the  "actual"  unscheduled 
maintenance  task  probabilities  used  in  the  simulation  are 
determined  by  selecting  a  value  from  that  distribution, 
assuming  the  mean  is  the  value  entered  by  Card  Type  #7. 

(Parts  initialization  and  shop  activity  at  zero  time  are 
based  on  the  values  entered-- i . e . ,  "peacetime"  data 
points . ) 

A  switch.  If  zero  or  -1,  unscheduled  maintenance  task 
probabilities  are  modified  in  proportion  to  the  Card  Type 
#44  entries.  If  unity  the  basic  probabilities  are  varied 
by  shop  and  aircraft  type  as  a  function  of  achieved 
sortie  rate.  If  set  to  -1  or  +1,  the  basic  values  are 
used  for  estimating  average  shop  task  times,  average 
resource  requirements  (in  BSECAP)  and  initial  parts 
stocks . 

If  set  to  1,  2,  or  3,  additional  checks  are  conducted  of 
input  data  accuracy.  When  set  to  2  or  3,  either  by  the  user, 
or  automatically  when  certain  input  errors  are  detected, 
execution  is  stopped  following  data  entry.  When  =  3, 
most  card  types  are  subjected  to  special  checks  in 
subroutine  TESTER. 

Used  for  transferring  the  initiation  time  of  a  task 
element  among  certain  subroutines. 

Maximum  of  days  for  which  weather  data  may  be  stored. 

(maximum  value  =65) 

If  initialized  when  VERIFY  =  2,  TEST  is  set  to  XTEST  for 
the  last  portion  of  the  initialization  process  carried  out 
by  subroutine  TRIALS. 


i 


ZNORS 


A  switch.  When  unity,  parts  that  wore  not  available  to 
be  placed  in  the  pipeline  during  parts  initialization, 
because  of  shortages  are  obtained  by  removing  them  from 
aircraft,  thus  creating  NMCS  (NORS)  aircraft.  If  zero,  a 
message  is  printed  noting  the  shortage. 

ZSHOP  Internally  set  to  unity  when  Card  Type  //42  is  used  to 

initialize  on-equipment  or  off-equipment  work  at  time 


zero . 
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APPENDIX  B 

DATA  STORAGE  ARRAYS  IN  COMMON 

The  180  storage  arrays  used  in  TSAR  and  contained  in  one  or  another 
of  the  20  Common  statements  (other  than  the  LOCALx  Common  statements) 
are  listed  alphabetically  in  this  section. 

Data  that  are  input  primarily  by  the  user  are  denoted  by  INPUT-#xx 
after  the  array  descriptor;  "xx"  provides  a  cross-reference  to  the  Card 
Type  used  for  data  input.  Data  that  are  generated  internally  are 
denoted  by  GENERATED . 

The  array  name  and  dimensions  follow  an  English-language  descrip¬ 
tor.  Dimensions  controlled  by  the  user  are  listed  in  terms  of  the  vari¬ 
able  that  defines  the  particular  dimension  (see  Appendix  A).  MAXB ,  MAXT 
and  MAXM  refer  to  the  maximum  numbers  of  bases,  aircraft  types  and  mis¬ 
sions,  respectively.  Unless  otherwise  specified,  the  dimension  of  SHOP 
is  30.  The  nature  of  the  stored  data  is  then  defined  for  each  element 
along  the  program- f i xed  dimension. 

In  many  cases  more  than  one  data  are  contained  in  a  single  element. 
The  packing  factor  is  shown  as  a  multiplier  using  the  FORTRAN  symbol  for 
multiplication;  the  first  item  is  multiplied  by  the  packing  factor  and 
then  added  to  a  second  before  storage;  e.g.,  "Time'-'-'lO/dist r ibut ion" 
defines  ten  times  a  time  plus  a  distribution  number.  As  will  be  noted, 
the  organization  and  packing  of  the  data  is  often  different  than  speci¬ 
fied  in  tiie  Card-Image  input  formats. 
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Aircraft  Ass igned  (GENERATED ) 

ACA  (I,  MAXM,  MAXT ,  MAXB ) 

1=1  Number  of  aircraft  assigned  to  3rd  priority  flights 

=  2  Number  of  aircraft  assigned  to  5th  priority  flights 

=  3  Number  of  aircraft  assigned  to  6th  priority  flights 

Aircraft  Type  Data  (INPUT-# 15) 

ACDATA  (I, MAXT) 

1=1  Post-flight  inspection  delay  -  Mean  time*10/distribution 

=  2  Pre-flight  inspection  delay  -  Mean  time* 10/distribution 

=  3  Fuel  -  Thousands  of  pounds 

=  4  Task  number  for  fueling  resources 

=  5  Number  of  assignable  mission  types 

=  6  Nominal  time  for  unscheduled  maintenance 

=  7  Nominal  time  for  complete  sortie  cycle 

=  8  Pointer  to  1st  item  in  PRTLST 

=  9  Munitions  load  team  personnel:  Type*100/Number 

(Enter  to  prohibit  two  teams  per  aircraft) 

=  10  Special  AGE#1:  one  unit  is  sufficient  for  all  tasks 

=  11  Special  AGE#2:  one  unit  is  sufficient  for  all  tasks 

=  12  Basic  munitions  #1;  Type*100/number 

=  13  Basic  munitions  #2;  Type*100/number 

=  14  Basic  munitions  #3;  Type*100/number 

=  15  Administrative  delay  for  transferred  aircraft 
=  16  First  battle-damage  task 

=  17  Last  battle-damage  task 

=  18  Percentage  of  parts  that  are  recoverable  from  a  salvaged 
aircraft 

=  19  First  airbase-attack-damage  task 

=  20  Last  airbase-attack-damage  task 

=  21  Personnel  required  for  an  alert  aircraft  -  Type*100/number 

=  22  Equipment  required  for  an  alert  aircraft  -  AGE1*100/AGE2 

=  23  Number  of  sorties  per  PAA  for  which  battle  damage  spares 

are  to  be  procured 

=  24  Base  number  where  roar-base  maintenance  is  performed 

=  25  Unity  if  aircraft  may  be  assigned  to  "special"  alert 

=  26-28  Mission  effectiveness  degradation  when  the  (I-25)th 
basic  munition  is  not  loaded 
=  29-30  Spare 
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Aircraf t  Mission  Data 
ACMDTA  (I,  MAXM,  MAXT) 


(INPUT-?'/ 16) 


I 


1  Flight  duration  -  Mean  t  ime,v10/distribution 

2  Non-reparable  damaged  aircraft  fraction'"128/Damage  to  kill 

rat io*10 

3  Late  takeoff  time  allowance 

4  Percent  aborts  per  sort ie*128/Percent  crews  lost  when 

aircraft  lost  in  combat 

5  Equivalent  percent  sorties  retaining  mission-dependent 

munitions*128/Percent  sorties  retaining  basic-munitions 

6  Last  day  initial  attrition  rate*500/percent  attr ition*10 

(maximum  attrition  rate  is  49.9  percent  per  sortie) 

7  Last  day  second  attrition  rate*500/second  percent 

attrition*10 

8-10  Third  through  fifth  attrition  rate  data 

11  If  unity,  aircraft  in  a  flight  land  at  the  same  time 

12  Total  theater  sortie  demand  outstanding  at  beginning  of 

current  2-hour  period 
13-20  Spare 
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lndividual  Aircraft  Data  Array 


(GENERATED) 


ACN  (MAXACN,  I) 


I 


=  1  Aircraft  type  *512/  Prior  mission  *64/  Parent  base 

—  2  Next  base*100/Present  base 

=  3  Pointers:  First  interrupted  task 

=  4  Last 

=  5  First  waiting  task 

=  6  Last 

=  7  First  required  task 

=  8  First  deferred  task 

=  9  First  task  in  TASKQ 

=  10  Next  aircraft,  same  base 

=  11  Next  aircraft  assigned  to  the  same  flight,  same 

alert  force,  or  same  spare  force 
=  12  Status  (1)  In  flight  (2)  PSTFLT  delay  (3)  Maintenance 
(unassigned)  (4)  PREFLT  delay  (5)  Maintenance 
(assigned)  (6)  Ready  to  fly  (7)  Deferred  maintenance 
=  13  Conf igurat ion*128/Standard  combat  load  (SCL) 

=  14  Earliest  projected  flight  time  (zero  if  ready  to  fly) 

=  15  Designated  miss ion*1000/Assigned  FLT 

=  16  Preflight  flag 

=  17  Current  criticality  based  on  deferred  tasks;  minus  while  the 
aircraft  is  waiting  for  a  late  launch 
=  18  Time  present  delay  is  complete 
=  19  Pointers:  To  delay  time  heap 
=  20  Heap  pointer 

=  21  Actual  completion  time  of  longest  in-process  task 

=  22  Number  of  "holes"  in  aircraft 

=  23  Crew  number  for  current  flight 

=  24  Squadron  number  when  COMO  maintenance  is  used 

=  25  Number  of  tasks  requiring  munitions  load  crew;  +  100  if  crew 

at  work;  +  200  if  crew  held  momentarily 
=  2b  Number  of  ongoing  tasks  that  demand  a  unit  of  special  AGEf/1 
be  present 

=  27  Number  of  tasks  that  demand  a  unit  of  AGE#2 

=  28  Assignment  status:  0  =  Unassigned;  1  =  Flight;  2  =  Alert; 

3  =  Unassigned  (spare)  queue 

=  29  Aircraft  "hole"  criticality  (generated  in  ACCRIT) 

=  30  Completion  time  of  most  recent  sortie 

=  31  Temporary  flag  used  in  FLIGHT  and  LAUNCH 

=  32  Sorties  initiated  during  the  current  day 

-  33  Flag  denoting  status  of  rear-base  maintenance 

=  34  Sorties  flown  since  a  temporarily  deferrable  task  arose 

=  35  Sum  of  "l",  if  battle  damage  tasks  are  scheduled  at 

operational  base,  and  "10"  if  damage  tasks  are  scheduled 
for  a  rear  base 

=  36  Pointer  to  a  list  of  ongoing  tasks  that  rejoin 

=  37  Defines  regular  base  when  diverted  for  emergency  recovery 

=  38  Mission  effectiveness  degradation  for  omitted  basic 
munitions*10/coded  record  of  munitions 
that  are  loaded. 

=  39-40  Spare 


J 
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Administrative  T imc  Delays  for  Parts  and  Equipment  Repa i r ( 1 NPUT-#47 ) 

ADELAY  (SH0P(24) ,  I,  MAXB) 

1=1  When  a  faulty  part  is  removed  from  an  aircraft  and  sent  to  a  shop 

for  repair;  or  when  a  part  arrives  at  a  C1RF;  the  repair  process 

is  delayed  this  length  of  time,  except  when  EXPED  is  not  0. 

=  2  When  a  piece  of  equipment  is  found  to  be  faulty,  the  repair  process 

is  delayed  this  length  of  time,  except  when  EXPED  is  not  0. 

Entry:  llours*100/Time  distribution 


Equipment  Repaj.r  Procedures  (INPUT-# 10) 


AGEREP 

(NOAGER,  I) 

I  =  1 

Shop  assigned 

to  repair  AGE;  or  pointer  to  subsequent  procedure 

=  2 

Probability  AGE  requires  repair  following  use  *10000;  or,  minus 
probability  this  particular  repair  procedure  is  required*100 

=  3 

Repair  time 

or , 

Mean  *10/Dist r ibution ; 
minus  AIS  station  number 

=  4 

Personae  1 

or, 

Type  *100/Number; 

-1  if  multiple  procedures  are  to  be  considered 

=  5 

Equipment 

or, 

AGE  1  * 100/AGE2 ; 

first  procedure  to  be  considered 

=  b  Alternate  procedure 


Resource  Report  on  AGE  and  Equipment  (GENERATED) 

AGERPT  (NOAGE,  MAXB) 

Total  number  on  base  -  Data  reco i ved*l 28/ Data  in  transit 


AGE  Requirements  per  Sortie  (GENERATED) 

AGERQT  (NOAGE,  MAXM ,  MAXT) 

Likelihood  needed* ( 10**7 ) /Expected  requirements  for  AGE  per  sortie  - 
(100000*TTU) 


AGE  and  Equipment  Stocks  (lNPUT-#22) 

AGESTK  (NOAGE,  I,  MAXB) 

I  =  1  Number  serviceables  on  base*100/Nominal  stock  level 
=  2  Number  avai lable*100/Nominal  shop 
=  3  Number  serviceables  enroute 
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Alert  Aircraft  Resources  Flag  (GENERATED) 

AIDALT  (MAXT) 

Switch;  set  to  unity  if  resources  are  required  for  alert  aircraft 


Data  on  AIS  Station  Equipment  ( INPUT-#22/66 ) 

AISDTA  (NOSTAT,  I) 

1=1  Pointer  to  the  first  tray  in  TRAYS  associated  with  the  station 
=  2  Part  breakage  probability  per  LRU  repair 
=  3  Part  OST  (days)  *10/Distr ibution 

=  4  Added  time  needed  for  AIS  maintenance;  a  percentage  of  LRU  repair 
time--with  one  station*128/with  more  stations 
=  5  Equivalent  AGE  number  of  AIS  station 

Tray  Utilization  of  AIS  (GENERATED) 

AISUSE  (NOSTAT,  I,  MAXB) 

1=1  TRAY  in  use  on  string  #1 
=  2  TRAY  in  use  on  string  #2 

=  3  TRAY  in  use  on  string  #3 

=  4  TRAY  in  use  on  string  #4 

=  5  TRAY  in  use  on  string  #5 

=  6  Cumulative  LRUs  and  SRUs  repaired  by  this  station  type. 


Alert  Aircraft  (GENERATED) 

ALERT  (1,  MAXM ,  MAXT,  MAXB) 

1=1  Number  aircraft  required  for  Priority  #2  alert 

=  2  Number  aircraft  required  for  Priority  it 4  alert 

=  3  Pointer  to  first  aircraft  assigned  to  priority  it2 

=  4  Pointer  to  first  aircraft  assigned  to  priority  #4 

=  5  Number  of  aircraft  readied  for  priority  #2 

=  6  Number  of  aircraft  readied  for  priority  itU 


Squadron  Equipment  Equivalence  Designators  (INPUT-#46) 

ALTAGE  (NOAGE,  1) 

1=1  Type  designator  for  AGE  assigned  to  the  second  squadron 
=  2  Type  designator  for  assignments  to  the  third  squadron 

=  3  Type  designator  for  assignments  to  the  wing  organization 
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Squadron  Personnel  Equivalence  Designators  ( INPUT-#45/ 1 ) 

ALTPEO  (NOPEOP ,  I) 

1=1  Type  designator  for  personnel  assigned  to  the  second  squadron 
=  2  Type  designator  for  assignments  to  the  third  squadron 

=  3  Type  designator  for  assignments  to  the  wing  organization 

Task -Ass is t -Qua  1 i f ied  Personnel  Types  (INPUT-#45/3) 

AQPEOP  (NOPEOP,  I) 

I  =  1-5  Personnel  types  who  may  assist  with  on-equipment  tasks 

Airbase  Attack  Data  (INPUT-#40) 

ATTACK  ( LTHATT ,  I) 

1=1  Attack  time 
=  2  Heap  pointers 

=  3  Heap  pointers 

=  4  Position  of  first  damage  data  in  DAMAGE  array 
=  5  Base 


Delays  due  to  Post-attack  Disruption  (GENERATED) 

ATTDLY  (I,  MAXB) 

1=1  SHPDLY  modified  for  attack  strength 

=  2  CEDELY  modified  for  attack  strength 

Average  Shop  Performance  (GENERATED) 

AVGP  (I,  SHOP,  BASE) 

1=1  Average  task  time 

=  2  Average  task  capacity 

=  3  Expected  closure  time*10/distribution 

Standard  Backshop  Parts  Repair  Times  (GENERATED) 

AVGREP  (SHOP(25) ,  MAXT) 

Ten  times  the  average  on-base  repair  time  that  would  be  required  with 
unlimited  resources  for  jobs  generated  by  a  particular  aircraft  type, 
taking  into  account  the  several  probabilities  affecting  whether  or  not 
the  job  would  be  done  on-base. 
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Average  Inter-Base  Shipment  T ime  (GENERATED) 

AVGSHP  (MAXB) 

Average  shipment  time  from  each  operating  base  to  all  other  operating 
bases  (TTU) 


Standard  On-Equipment  Task  T imes  (GENERATED) 

AVGTSK  (SHOP(25) ,  MAXT ) 

Ten  times  the  average  time  that  each  shop  would  take  to  complete  on- 
equipment  tasks  on  a  given  aircraft  type,  when  resources  are  unlimited 

Munitions  Bui ldup  Wait  Queue  (GENERATED) 

BACKLG  (I,  LI.Q) 

1=1  Munitions  type 

=  2  Next  task  in  shop  (unused  elements) 

=  3  Resource  causing  delay 

=  4  Time  task  first  attempted 

=  5  Base 


k 


(GENERATED) 


Special  Base  Data 
BASES  (I,  MAXB) 

1=1  First  aircraft  assigned  to  base 

=  2  Last  aircraft  assigned  to  base 

=  3  Number  of  aircraft  possessed 

=  4  Runway  status  (0  if  open,  1  if  closed) 

=  5  Taxiway  status  (runway  non-access  probability) 

=  6  Total  cannibal izat ions 

=  7  Number  of  LRUs  cross -canned 

=  8  Number  of  repairs  expedited 

=  9  Initial  number  of  LRUs;  negative  if  current  number  less  than 

ADAPTR  percent  of  initial 

=  10  Personnel  qualifications:  +10  if  on-base  personnel  are 

cross-trained;  +1  if  personnel  are  task-assist-qualified 
=  11  Number  of  aircraft  assigned  initially  or  by  preplanned 

i e in  for cement 

=  12  Number  of  aircraft  with  broken  or  missing  parts 
=  13  Time  of  last  airbase  attack 

=  14  Coded  record  of  aircraft  types  assigned  to  base  [Sum  of 
2**(ACTYPE- 1 ) ] 

=  15  Spare 

=  16  Parts  repair  organization  type:  0  for  data  as  entered;  1, 
when  the  flight  line  is  a  66-1  organization  and  the  data 
apply  to  a  66-5  organization  (and  resource  equivalents 
must  be  used  for  repair  work) 

=  17  Number  of  aircraft  receiving  post-flight  inspection 

=  18  Number  of  aircraft  that  require  unscheduled  maintenance 

=  19  Ten  times  the  average  number  of  aircraft  that  may  be 

accommodated  in  a  shelter  (default  =  10) 

=  20  Number  of  shelters  on  base 

=  21-29  Number  of  aircraft  of  type  (I  -  20)  *  8/Number  of  squadrons 

=  30  Number  of  COMO  squadrons  per  aircraft  type 

=  31  Number  of  serviceable  parts  shipped. 

=  32  Number  of  serviceable  parts  received  from  an  operating  base. 

=  33  Number  of  serviceable  parts  received  from  a  CIRF. 

=  34  Number  of  serviceable  parts  received  from  CONUS. 

=  35  Number  of  reparable  parts  shipped  to  an  operating  base. 

=  36  Number  of  reparable  parts  shipped  to  a  CIRF. 

=  37  Number  of  reparable  parts  shipped  to  CONUS. 

=  38  Number  of  parts  condemned 

=  39  Current  number  of  battle  damaged  aircraft 

=  40  Cumulative  number  of  bent  parts 

=  41  Base  kind:  1  for  MOB;  2  for  COB 

-  42  Storage  capacity  for  POL 

=  43  Number  of  aircraft  shelters  designated  for  "special"  alert 

=  44-45  Spare  (values  read  from  Card  Type  #17) 

-  4n  Unite  if  the  base  is  list'd  for  rear-at  »a  maintenance 

=  47  Cumulative  number  of  aircraft  damaged  in  air  operations 

=  48  Number  of  aircraft  flown  to  rear  for  maintenance 

=  s')  Number  of  aircraft  transferred  for  tiller  force 


Task  Assistance  List 


(GENERATED) 


BORROW  (NOUSER,  I) 

This  array  stores  the  shop  numbers  of  shops  that  borrow  personnel  from 
other  shops  (.1  =  1).;  or,  equipment  (1  =2). 


Base  Parts  Provis i oiling  Policy  Data  ( INPUT-#23/70  &  23/72) 

B PARTS  (I,  MAXT ,  MAXB ) 

1=1  Kind  of  base:  1  for  in-place  units  to  have  POS/BLSS 

2  for  deployed  unit  to  receive  a  WRSK 
=  2  Type  of  aircraft 

=  3  Number  of  aircraft  (PAA)  - 

=  4  Peacetime  sorties  per  day  per  PAA*100 
=  5  Wartime  sorties  per  day  per  PAA'V100 
=  6  Average  peacetime  base  parts  repair  time  (hours) 

=  7  Average  wartime  base  parts  repair  time  (hours) 

=  8  Peacetime  order  and  ship  time  (days) 

=  9  Wartime  order  and  ship  time  (days) 

=  10  One-way  travel  time  to  CIRF,  when  applicable  (hours) 

=  11  Unity  when  all  faulty  parts  are  to  be  NRTSed. 

=  12  ALPHA1;  safety  factor  for  high  priority  LRUs 
=  13  ALPHA2;  safety  factor  for  low  priority  LRUs 
=  14  BETA1;  safety  factor  for  high  priority  SRUs 
=  15  BETA2;  safety  factor  for  low  priority  SRUs 

Cumulative  Sorties  (GENERATED) 

BSOR  (9) 

Cumulative  sorties  by  base 

Munitions  Bui ld-up  Task  Heap  (GENERATED) 

BUILDQ  (LBQ,  I) 

1=1  Type  of  munitions 
=  2  Completion  time 

=  3  Pointers:  To  heap  (Unused  elements) 

=  4  Heap  pointer 

=  5  Prior  task,  same  shop 

=  6  Personnel  Type*100/Number 

=  7  AGE  and  equipment  AGE1*100/AGE2 

=  8  Time  task  first  attempted 

=  9  Base*100/Assembly  procedure 

=  10  Alternate  personnel  type*100/Number 
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Record  of  Pilot  Shortages  and  E f fccts  (GENERATED) 

CANCEL  (I,  MAXT ,  MAXB) 

1  =  1  Cumulative  number  of  fully  ready  aircraft  canceled  from  tentative 
flights  because  of  pilot  shortages 
=  2  Cumulative  number  of  pilots  needed  to  have  met  minimum  flight 
size  requirements 
=  3-5  Spare 

Sortie  Generation  Capahi 1 i t ies  (GENERATED) 

CANFLY  (1,  MAXM,  MAXT,  MAXB) 

1  =  1  Estimated  daily  limit  without  regard  to  available  aircraft 

=  2  Estimated  daily  limit  for  aircraft  of  the  specified  type  that  are 
not  constrained  by  a  "hole" 

=  3  Estimated  daily  sortie  limit  for  aircraft  of  specified  type, 
taking  into  account  all  aircraft  types  on-base. 

Time  Required  to  Obtain  a  Part  by  Cannibalization  (INPUT-#35) 

CANNTM  (NOPART) 

The  additional  on-equipment  task  time  required  to  obtain  a  part  by 
cannibalization;  if  "-1",  part  may  not  be  cannibalized.  If  <  -1, 
cannibalization  is  permitted  if  more  than  DOCANN  aircraft  require 
tliis  part  type;  the  time  required  is  the  absolute  value  of  CANNTM. 

Cargo  Sh i pped  from  CONUS  (INPUT-#31) 

CARGO  (NCARGO ,  1) 

I  =  1  Base*25o  +  Quantity 
-  2  3200*Class  +  Type 

(64  is  added  to  the  base  number  for  parts  enroute  from  a  CIRF  to 
a  base  at  zero  time) 

Civil  Engineering  Job  Queue  (GENERATED) 

CEJOBQ  ( LTHCEQ ,  I) 

I  =  1  Base-256  /facility  number 
=  2  Personneli/1  Type*  1 00/number 
=  3  Personnel?.^  Type*  100/number 
=  4  Equipment#!  Type* 100/number 
=  5  Equipment«2  Type* 1 00/number 
=  6  Task  initiation  time 
=  7  Task  completion  time 
=  8  Pointers:  To  heap 
=  ')  Heap  pointer 


(Unused  elements! 
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Civil  Engineering  Task  Priority 


( INPUT-//39) 


CEPRTY  (NOFAC) 

The  facility  number  in  the  ith  position  is  the  ith  on  the  repair 
priority  list. 


C  ivi 1  Engineer ing  Task  Requ  irements 
CF.RQTS  (I,  NOCE) 

1=1  Time  per  unit  task*100/time  function 
=  2  Personnel#l  Type* 100 /number 
=  3  Personnel#2  Type*100/number 
=  4  Equipment#l  Type*100/number 
=  5  Equipments  Type*100/number 
=  6  Material/11  Quantity*100/Type 
=  7  Material//2  Quantity*100/Type 


(  INPUT-//38) 


=  8  Alternate  resource  set 


Preset  and  Dynamic  Parameter  Change  Storage 


(INPUT-f/49) 


CHANGE  (NOCHG ,  I) 

1=1  Time  change  is  to  be  accomplished 

=  2  Pointers:  To  time  heap  (unused  elements) 

=  3  Heap  pointer 

=  4  Type  of  change  *100/miscellaneous  data 

=  5  Value  after  change  (this  number  may  be  "packed"  as  required.  See 
subroutine  MODIFY). 


Temporary  Part  Generation  Status  Arras 


(GENERATED) 


CHCKED  (NOPART) 

Set  to  unity  when  part  type  has  been  checked  in  subroutine  IPARTS. 


CIRF  Parts  Repair  Time  Modifiers 


(INPUT-#48) 


CIRFTM  (SH0P(24) ) 

Modifies  the  nominal  shop  repair  time  at  a  CIRF  by  a  specified 
percentage . 
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Check  Fi I ler  A i rcraf t  Assignment  (GENERATED) 

CKFILL  (MAXT) 

Automatically  reset  from  zero  to  one  whenever  filler  aircraft  fall  to 
zero;  subsequently  a  check  is  made  at  midnight  to  assign  any  new, 
unassigned  filler  aircraft. 


Aircraft  Munition  Conf igurat ion  Data  (INPUT-# 14) 

CONFIG  (NOCONF ,  I) 

1=1  Task  #1  -  Time*100/distribution*10/personnel  substitutability 
=  2  TRAP  Type* 10 /Number 

=  3  Equipment  EQP1*100/EQP2 

=  4  Personnel  Type*100/Number 

=  5  Task  #2  -  Time*100/distribution*10/personnel  substitutability 
=  6  TRAP  Type*10/Number 

=  7  Equipment  EQP3*100/EQP4 

=  8  Personnel  Type*100/Number 


Scheduled  Support  Shipments  from  CONUS  (INPUT-#31) 


CONUS 

(N0C0NS, 

I) 

I  =  1 
—  0 

(Day  of 
Pointer 

arrival-l)*480  +  Hour  of  arrival*20 
to  the  position  of  the  first  item  in 

the  CARGO  array 

Parts 

Cost  Data 

( lNPUT-#23/66) 

COSTS 

(NOPART) 

The  cost  of  an  individual  part  (LRU  or  SRU)  in  hundreds  of  dollars 

Temporary  Parts  Storage  (GENERATED) 

CSTOCK  (NOPART,  I) 

1=1  Authorized  on-base  stocks 

=  2  Actual  on-base  stocks 

Cross-Trained  Personne 1  (GENERATED) 

CTPEO  (NOPEOP) 


Entry  set  to  unity  for  personnel  types  that  are  cross-trained 
for  any  activity  of  another  specialty. 
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Cross -Tryained  Personne  l  Types  ( I.\'Pl'T-#45/2 ) 

CTPEOP  (NOPEOP,  I) 

I  =  1-5  Personnel  types  that  may  be  substituted  for  on-equipment  tasks. 
Base  Damage  Data  ( INPlT-#40) 

DAMAGE  (NO ITEM,  I) 

Data  are  packed  differently  for  different  types  of  resources 

1  =  1  Resource  Class 

Personne 1 
AGE /Equip 
Parts 
Mun i t ions 
TRAP 
Material 
POL 

Aircraft 


Facilities 

Special 


I  =  2  Resource  Class 

it  1  thru  it 7  Percent  destroyed 

its  and  #9  (°0Peop  lost )*900/ (°„AGE  lost)*30/ 

(“ol’arts  lost) 

#10  (Entry  it  1)  Percent  aircraft  damaged  in  opened  regular 

shelters*128/Percent  unsheltered  aircraft 
damaged 

(Entry  it 2)  Percent  special  shelters  destroyed*128/ 

Percent  damage  to  aircraft  in  opened 
special  shelters 

Note  that  there  are  two  sets  of  Class  «10  data,  and  that  Class  ?;10 
data  must  precede  Class  #8  data  in  the  input  sequence.  If  no  resource 
type  is  entered  for  classes  1,2,15,4,5,6,  or  8  all  types  in  class 
susi  i  iii  s nine  level  of  damage. 


(#1)  Resource  C 1  ass*3200/Typo 

£  yiO  \  11  ,f  n  ” 

(#3)  "  "  "  " 

(#4)  "  "  "  " 

(#5) 

(#6)  "  "  "  " 

( it 7) 

(#8)  Resource  Class*3200/Type*l 10/Percent 

damage  to  aircraft  in  closed  regular 
shelters  (Entry  it  1)  or  Percent  damage  to 
aircraft  in  closed  special  shelters 
(Entry  #21 

(#9)  Resource  Class*3200/Facil ity*30/ 

Percent  destroyed 

(#10)  Resource  Class*3200  /  Entry* 110/ 

Percent  regular  shelters  destroyed 
(Entry  #11 

or  Percent  damaged  aircraft  that  are 
not  reparable.  (Entry  #2) 


' 

1  ; 


Deferred  Task  Storage  Array  (GENERATED) 

DEFTSK  ( LDT ,  I) 

I  =  1  Task  number 

=  2  Next  task,  same  aircraft  (unused  elements) 

=  3  Next  task,  same  shop 

=  4  Aircraft  number 


Resources  Available  to  Replace  Losses  ( INPUT-f<2x/99 ) 

DEPOT  1  (NOPEOP ) 

DEP0T2  (NOAGE) 

DEP0T3  (NOPAKT) 

DEP0T4  (NOMl’N) 

DEPOT 5  (NOTRAP) 

DEP0T6  (NOMATL) 

DEPOT?  for  POL 

DEPOTS  (MAXT) 

Available  quantities  of  each  type  of  resource  that  may  be  requisitioned 
to  replace  losses;  default  =  32500. 


Facility  Storage  (GENERATED --TEMPORARY  STORAGE) 

FAC  DAM  (.  NOFAC ,  I) 

1  =  1  Flag  Set  to  1  if  facility  damaged  by  attack 
=  2  Percent  of  facility  damaged 

=  3  Percent  personnel  lost 

=  4  Percent  equipment  lost 

=  5  Percent  parts  lost 

=  t>  Spare 

(INPUT-//37) 


1  =  1  Task  type  for  reconstruction'-’-'lOO 

=  2  Size  in  units  consistent  with  CERQTS  data 

=  3  Percent  damage* 128/Parent  shop  for  distributed  capacity 

=  4  Location  of  repair  work  in  CEJOBQ 

=  5  Alternate  shop  locat ion*l 28/Repair  capacity 

=  k>  Subsequent  task  typc*128/Task  origin 

=  7  Spare 


Base  Facility  Data 
FACLTY  (I,  NOFAC,  MAXB ) 


-30- 


Filler  Aircraft  (1NPUT-//20/77) 

FILLER  (MAXT,  I) 

1=1  Number  of  aircraft  available  as  fillers 

=  2  Time  required  for  a  filler  aircraft  to  reach  assigned  base 

Sortie  Demand  Data  (INPUT-#50) 

FLTRQT  (MAXFLT,  I) 

1=1  Launch  base*128/Aircraft  type*8/Mission 
=  2  Priority* 1000/Daily  demand  probability 

=  3  Number  aircraft  required*32/Minimum  number 
=  4  Time  flight  announced  before  takeof f*64/Recovery  base 
=  5  Flight  time 

=  6  Pointers:  Next  later  flight--all  bases 

=  7  Next  earlier  flight  (and  unused  element  pointer) 

=  8  Next  flight  same  mission,  aircraft,  base 

=  9  First  aircraft  assigned  this  flight 

=  10  Number  aircraft  assigned 

Temporary  Parts  A1 locat ion  Array  (GENERATED) 

FRACBS  (NOPART,  MAXB ) 

Fraction  of  parts  assigned  to  base  rather  than  to  the  CIRF 

Taxiway  Non-access  Function  ( INPUT-#]  7/ 1 ) 

FTAXT  (I,  MAXB) 

1  =  1  Taxiway  damage  1  eve  1  at  which  the  runway  cannot  be  accessed 
from  the  shelters 

=  2  Exponent  controlling  the  variation  of  access  prooabilitv  with 
the  level  of  damage 

Part  Replacement  Time  Flag  (GENERATED) 

GTLMT  (NOPART) 

Flag  designating  that  time  for  associated  maintenance  task  exceeds  MNTLMT 
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Task  Time  Multipliers  ( INPUT-#17/2) 

HURRY  (MAXB ,  J,  I) 


1  -  1  Nominal  percentage  of  standard  task  times 

=  2  Current  percentage  of  standard  task  times 

J  =  1  Unscheduled  on-equipment  tasks 

=  2  Preflight  tasks 

=  3  Off-equipment  repairs 

=  4  Munitions  assembly  jobs 

=5  Civil  engineering  jobs 

Temporary  Pipeline  Parts  Storage  (GENERATED) 

INPIPE  ( NOPART ,  MAXB,  I) 

I  =  I  Total  in  pipeline  consigned  to  base 

=  2  Total  in  pipeline  consigned  off-base 

Temporary  Pipeline  Storage  (GENERATED) 

I  PIPE  (NOPART,  I) 


I  =•  1  Total  in  pipeline  to  base 

=  2  Total  in  pipeline  for  base  including  off-base  storage 

Storage  Array  for  Interrupted  Tasks  (GENERATED) 

INTTSk  i  LIQ,  I ) 


1 


=  4 


=  5 
=  o 
=  7 
=  8 
=  9 
=  10 


Task  number,  part  or  AGE  repair  procedure,  or  munition  type 
Basic  task  number  (if  prior  is  alternate) 

Aircraft  number  or  Base*o4/base  of  origin  or  Base  *100/assembly 
procedure 

Pointers:  Next  task,  same  aircraft;  or  -ERU,  when  job  is  SRU 

replacement;  or  -SRU(+5000),  for  an  SRU  repair;  or 
-AGE(+10000)  for  an  equipment  repair  (unused 
elements ) 

Next  lower  priority  task  for  shop 
Next  higher  priority  shop  task 
Remaining  time 

Time  basic  task  initiation  attempted 

Time  task  element  initiation  first  attempted 

Root  segment  for  elements  of  a  task  network 


Numbers  of  Manual  Entries 


(GENERATED) 


ITEMS  f MAXI?  > 


Number  of  manual  entries  when  automatic  parts  generation  feature  is  used 


Temporary  Data  Storage  in  Subroutine  INCOME 
JOBDTA  (20,  2) 


(GENERATE!)) 


Cumulative  Requ  i  rement  for  Rear  Base  Maintenance  (GENERATE!) ) 

JOBPR  (KIND,  MAXT) 

Cumulative  probability  of  the  tasks  that  must  be  carried  out  at  a  rear 
base  for  aircraft  based  at  a  MOB  (KIND  =  1).,  or  at  a  COB  (KIN!)  =  2). 


Cumu  lative  Number  of  band  i n_gs  by  Base  (GENERATED) 

LAMING  (MAXB) 

hatera  1  Resnpp 1 y  Bases  ( lNPCT-f(23/74) 

LATERL  (MAXB) 

Coded  record  of  up  to  five  bases  called  for  lateral  resupply 
[  Sum  of  (64**N)*BASE  } 


Heap  for  Aircraft  Parts  during  Administrative  Decays  (GENERATED ) 

LIMBO  ( NLIMBO,  1) 

1=1  Part  number 

=  2  Baso*64 /Original  base 

=  3  Time  delay  began 

=  -+  Time  delay  complete 

=  5  To  heap  (Unused  elements) 

=  o  Heap  pointer 


Storage  Array  for  Task  lncompatibi  1  ities  (  INTl'T-i)  1 9  ) 
LISTIN’  (LTIILST) 

This  linear  array  is  used  to  store  task  numbers,  shop  numbers, 
and  blocks  of  task  numbers  that  are  incompatible  with  specific 
on-equipment  tasks 


Materials  Stocks 


(INPL’T-;)2o) 


MATER  I,  (NOMATL,  MAXB) 


Current  on-base  stock  level  for  each  type  of  material 


Numbers  at  Part  Types  Required  in  Roar 
MAXOFF  (KIND,  MAXT) 


(GENERATED) 


Maximum  number  of  part  typos  that  arc  required  at  a  rear  operating 
base  for  an  aircraft  at  a  MOB  (KIND  =  1).  or  at  a  COB  (KIND  =  2). 


Munition  Requirements  per  Sortie  (GENERATED) 

MFNRQI)  INOMUN.  MAXM ,  MAXT) 

Expected  requirements  (or  munitions  per  sortie  times  100. 

Munitions  Build-up  Resource  Requirements  ( INPUT-# 1 1) 

MFNKQT  (I,  NOB  1  1,1) ) 

1  ~  I  Time''' 10/Di st  ribut  ion 

=  2  Personnel:  Type* 100/Number 

=  3  AGE:  AGE  1* 1 00 /AGE 2 

=  A  Number  assembled* 1000/alternate  resource  set*10/personnel 
subst i tutab  i  1  i  ty 

Ammunition  Stocks  (INPUT-#25) 

Ml'NSTK  iNOMl'N.  I.  MAXB ) 

i  =  1  Number  available  for  loading 

=  2  Number  available  for  assembly 

=  3  Total  on  base,  except  for  I  ~  2 

=  A  Temporary  tally  used  during  munitions  construction 

Current  Number  of  NMC  Aircraft  (GENERATED) 

NOR  (MAXB) 

Cumulative  Number  of  NORS  Hours  at  Each  Base  (GENERATED) 

NORHRS  (MAXB) 


M)K  A i retail  Storage  (GENERATED) 

Ni'RC  (ENUR,  !  ) 

-  1  Airmail  j  t  I  < •<  l  *•<! 

=  2  Pointer  to  next  air*  raft,  same  item  (or  muiM'd  elements) 

=  i  rime  remaining  until  the  reudv-to-flv  time  at  t  ime  of  report 
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AIS  Base  Station  Stocks 
NSTAT  (NOSTAT,  I,  MAXB) 

1=1  Total  number  of  stations  of  each  Lype  on  base 
=  2  Number  in  stations  in  use 


Parts  Requirement  for  Rear  Base  Maintenance  (GENERATED) 

OFFBSE  (KIND,  50,  1,  MAXT ) 

1=1  Part  number 

=  2  Probability  (*10000)  that  an  aircraft  at  a  MOB  (KIND  =  1),  or  a 

COB  (KIND  =  2),  will  require  the  part  at  a  rear  maintenance 
base . 

Temporary  Part  Demand  Storage  (GENERATED) 

0FFC0B  (N0PART,  MAXT) 

Per  sortie  part  demand  probability  at  a  COB  that  will  be  handled  at  a 
rear  maintenance  base 


Temporary  Part  Demand  Storage  (GENERATED) 

0FFM0B  (N0PART,  MAXT) 


Per  sortie  part  demand  probability  at  a  MOB  that  will  be  handled  at  a 
rear  maintenance  base 


Arrays 

for 

0u-Equipment  Task  Delay  Data 

OUTAGE 

a , 

NOAGE , 

MAXB) 

AGE  and  Equipment 

0UTFAC 

a, 

NOFAC , 

MAXB) 

Facilities 

0UTMAT 

(i. 

N0MATL, 

MAXB) 

Building  materials 

0UTMUN 

(i. 

N0MUN , 

MAXB) 

Munitions 

0UTPER 

(i. 

N0PE0P , 

MAXB ) 

Personnel 

0UTP0L 

a, 

MAXB) 

Fuel 

0UTPRT 

a. 

N0PART, 

MAXB) 

Parts 

0UTTRP 

(i, 

N0TRAP, 

MAXB) 

TRAP 

(GENERATED) 


1=1  lncidents*1000000/sum  of  the  delay  times 
=  2  Sum  of  the  delay  times  squared 
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Sort  io  Production  Data  (GENERATED) 

0UTPT1  (I,  PRTY.  MAXM,  MAXT,  MAXB) 

I  =  1  Cumulative  sorties  demanded  during  day 
=  2  Cumulative  sorties  flown  during  day 
=  3  Plight  data:  PRTY  =  1  Demanded  daily 

=  2  Launched  daily 

=  3  Demanded  overall 

=  4  Launched  overall 

=  4  Cumulative  sorties  demanded  during  simulation 
=  5  Cumulative  sorties  flown  during  simulation 

Daily  Shop  Comp  1  et ion  Records  (.GENERATED) 

0UTPT2  (I,  J,  SHOP (25),  MAXB) 

I  =  1  Daily  number  for  each  shop  at  each  base 

=  2  Cumulative  number  for  each  shop  at  each  base 

=  3  Spare 

J  =  1  On-equipment  tasks 

=  2  Off-equipment  parts  repair  jobs 

=  3  AGE  repair  jobs 

Effectiveness  Summaries  for  Sorties  F 1 own  (GENERATED) 

0UTPT3  (I,  MAXM,  MAXT,  MAXB) 

1=1  Daily  total  of  sortie-effectiveness-proxy  values 
=  2  Cumulative  total  of  these  values 


Overall  Sortie  Production  Data 


(GENERATED) 


0UTPT4  ( I ,  J ,  MAXM ,  MAXB ) 

1=1  Sorties  for  day  J  cumulated  over  all  trials 

=  2  Square  of  the  Jth  days  sorties,  cumulated  over  all  trials 


Shop  Manhour  Expenditure  Records  (GENERATED) 

0UTPT5  (I,  SHOP,  MAXB) 

1=1  Cumulative  manhours  on  on-equipment  tasks  by  men  assigned  to  the 
shop 

=  2  Cumulative  manhours  on  parts  repair  jobs  assigned  to  the  shop 

=  3  Cumulative  manhours  on  equipment  repair  jobs  assigned  to  the  shop 
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( GENERATED  ) 


Shop  Activity  Records 
OUTS HP  (1,  SHOP,  MAXB) 

1  =  1  Cumulative  number  of  on-equipment  tasks 

=  2  Sum  of  total  time  for  on-equipment  Lasks  from  the  first  attempt 
to  initiate  until  completion 
=  3  Sum  of  on-equipment  task  Limes  squared 
=  4  Cumulative  number  of  off-equipment  repair  jobs 

=  5  Sum  of  total  time  from  first  attempt  to  initiate  repair  until 

comp  1  et.  ion 

=  b  Sum  of  off-equipment  repair  Limes  squared 
=  7  Cumulative  number  of  AGE  repair  jobs 

=  8  Sum  of  total  Lime  from  first  attempt  to  initiate  repair  until 

comp  let  ion 

=  0  Sum  of  AGE  repair  times  squared 


Parts  Requ irerrients  (GENERATED) 

PARTRQ  (NOPART,  MAXT) 

Expected  number  of  parts  required  per  sortie  (  "10000  ) 


Spare  Parts  Stocks  ( INPUT-//23) 

PARTS  (NOPART,  I,  MAXB) 

1  =  1  Number  serviceables  on  base* 100/ shop  number 

=  2  Number  reparables  on  base* 100/ tota  1  items  in  shop 
=  3  Nominal  stock  level* 128/percent  NRTS 

=  4  Pointer  to  N0RQ  array  of  first  aircraft  that  requires  part 
or  -LRU 

=  5  Number  of  aircraft  requiring  part* 100  (or  number  of  LRUs  waiting 
ior  this  SRU*1 00) /number  serviceables  enroute  to  an 
operating  base  (or  number  reparables  enroute  to  the  C1RP) 
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Base  Porsonne  1  ( I  NPUT-4‘21  ) 

i’F.OI’l.K  (NOI’EOP ,  I,  MAXB) 

[  =  1  Total  available  on  base" 100/ 1  target  ’  number 

=  2  Number  on  "day"  sh i ft* 100/ 1  target '  number 

=  ‘3  Unass  igned*  100/ assigned  of  f-equipment 
=  4  Nominal  shop*100/minimum  number  on  shift 
=  5  Number  personnel  enroute  to  base 

=  6  Shift  change  status:  =1  when  checked;  =2  all  released 
=  7  Number  remaining  to  he  released  after  shift  change 

Resource  Report  on  Personnel  (GENERATED) 

PE0RPT  (1.  NOI’EOP ,  MAXB) 

1  =  1  Data  in  transit  for  total  personnel  on  base 
=  2  Data  received  for  total  personnel  on  base 

Personnel  Reqn irements  (GENERATED) 

PE0RQT  (N0PE0P,  MAXM ,  MAXT) 

Likelihood  needed*( 10;V*7) /Expected  requirements  for  personnel  per  sort 
(10000  men  *  TTU)  . 

Per  iodic/ Scheduled  Task  Time  Heap  (GENERATED) 

PERIOD  (1.  J) 

1  =  1  Planning  and  shift  changes 

=  2  Next  flight  schedule  input  time 

=  3  Next  time  for  scheduling  flights,  if  none  input 

=  4  edily  summary  of  results 

=  5  Next  time  for  periodic  resource  management 

=  <n  Schedule  intra-theater  shipments 

=  7  Receive  shipments  from  CONUS 

=  8  Next  shipment  departure 

=  9  Next  shipment  arrival 

=  10  Transmit  and  receive  reports 

=  11  Periodic  "hole"  summary 

=  12  Conclude  administrative  parts  delays 

=  13  Periodic  computation  of  base  capabilities 

=  14  Next  parameter  change 

=  15  Next  airbase  attack 

=  lo  Next  special  report  of  deferred  tasks 
=  17-20  No  spare 

.1  =  L  Time  of  earliest  event 

=  2  Pointers:  To  time  heap 

=  3  Heap  pointer 


Air-Crew  Status  Data 


(GENERATED) 


PILOT  (I,  NOCREW) 

1=1  Pointer:  Next  crew  at  rest,  same  aircraft  type 

=  2  Next  crew  on-duty,  same  aircraft  type 

=  3  Earliest  time  off-duty  period  complete  or  Time  on-duty 
=  4  Landing  time  most  recent  flight 
=  5  Tentative  assignment  flag 


Air-Crew  Locator  Data  (GENERATED) 

PILOTS  (I,  MAXT ,  MAXB) 

I  =  1  Number  of  aircrews  on-base 

=  2  Pointer:  First  air-crew  assigned  to  rest 

=  3  Last  air-crew  assigned  to  rest 

=  4  First  air-crew  assigned  to  a  flight 

=  5  Last  air-crew  assigned  to  a  flight 

On-Base  Parts  Repair  Policy  Data  ( INPUT-#23/2xx  &  #23/3xx) 

POLICY  (NOPART,  MAXB,  I) 

1  =  1  The  NRTS  rate  for  each  part  at  each  base  when  there  is  no  CIRF'-'-'lOO 
=  2  The  NRTS  rate  for  each  part  at  each  base  when  there  is  a  C1RF';:]00 

Base  Fue 1  Stocks  (INPUT- #2 7) 

POLSTK  (MAXB) 

On-base  fuel  stocks. 


Periodic  Flighj.  Data  Storage  (INPUT-50) 

PRDFLT  (MAXFLT ,  I) 

I  =  1  Launch  baso'"128/aircraft  type*8/miss  ion 
=  2  Pr ior ity* 1000/Da  i  ly  demand  probability 

=  3  Number  flights  requi red*1024/Nnmber  aircraft  requ i red*32/min imum 
number  of  aircraft  that  are  acceptable 
=  4  Time  flight  announced  before  takeof  f  (  hr  )'vlb/Recovery  base 

=  5  Launch  time  uncertainty  (.min/  1 0  )*5  1  2/l)a  i  ly  launch  time 


(GENERATED) 


Part  Cr it icality  Da  t a 
PRTCRT  (NOPRT,  2) 

Provides  a  record  of  the  criticality  of  each  part  for  up  to  9  types  of 
aircraft  for  which  it  may  be  used  and  for  each  mission  that  that 
aircraft  type  may  fly 

Aircraft  Parts  Lists  (INPUT-#28) 

PRTLST  (NOPRT) 

Entries  are  part  number* 10 /number  installed  on  each  aircraft 
Resource  Reports  on  Parts  (GENERATED) 

PRTRPT  (I,  NOPART,  MAXB ) 

I  =  1  Data  in  transit  regarding  number  of  usable  parts 
-  2  Data  received  regarding  number  of  usable  parts 
=  3  Reparables  on  base--Data  received*128/Data  in  transit 
=  4  Number  aircraft  N0RS--Data  received*128/Data  in  transit 

Temporary  Parts  Demand  Data  (GENERATED) 

PRTRQ  (NOPART,  1,  MAXT) 

Temporary  storage  array  for  accumulating  demand  for  a  part  needed  in  a  task 
network  after  parallel  paths  have  split  and  rejoined  (see  subroutine 
0KSPLT1 . 

1  =  1  Cumulative  probability  part  is  required  on  mutually 
exclusive  paths 

=  2  Cumulative  probability  part  is  required  on  non-mutually 
exclusive  paths 

FI ight  Requirements  Pointers  (GENERATED) 

PTZ  (MAXM,  MAXT.  MAXB) 

Pointer  to  location  of  first  sortie  demand  of  a  specific  type 

Dai ly  Aircraft  Activity  Storage  Array  (GENERATED) 

RECORD  124,  I,  MAXREC ) 

I  =  1  Time  of  day  for  completion  of  task 
=  2  Time  of  day  task  was  initiated 

=  3  Task  number;  zero  designates  a  sortie;  -1,  a  lost  aircraft 
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Tqsk  Time  Reduction  Factors  (  I  MT  T-A‘ 1  7/2  ) 

REDUCE  (MAXB ,  J,  I) 

I  =  1  Nominal  reduction  in  TI'U  in  standard  task  Limes 

=  2  Current  reduction  in  TI'U  in  standard  task  times 

J  =  1  Unscheduled  on-equipment  tasks 

=  2  Preflight  tasks 

=  3  Of f -equipment  repairs 

=  4  Munitions  assembly  jobs 

=  5  Civil  engineering  jobs 

Theater  Resource  Requ i s  i L i on  Contro  1  Data  (lNPUT-f/43) 

REFILL  (I,  -I) 

I  =  1  Sw i tch*l 00/Time  distribution 
=  2  Mean  resupply  time 

J  =  Resource  Class 


Temporary  Split  Rejoin  Records  (GENERATED) 

REJOIN  (NJOINT,  I) 

Maintains  record  of  parallel  paths  that  have  not  yet  rejoined 

I  =  1  Task  element  where  paths  rejoin 

=  2  Pointer  to  next  path  location  that  rejoins  (unused  elements) 


Relative  Importance  of  On-Equ i pment  Tasks  (ENCODED) 

RF.LIMP  (33,  MAXM ) 

Stores,  for  each  task  criticality  index,  the  number  of  missions  for  which 
task  is  cr  it  ical  . 


Alternative  Parts  Repair  Procedures 
REPALT  (NOREPA,  I) 


Requ  l  red 
Personne 1 
AGE 

A1 ternate 


t  ime*  1  0/d  istr  ibut  ion 
Type* 100/ number 
AGE  1* 1 00/AGE2 
resource  set 


( INPUT-#9 ) 


( IN HUT-# 36) 


Daily  Base  Resource  Report ing  Schedules 
REPORT  (NORKPT,  r) 

I  =  1  Transmittal  or  receipt  time  (20*HR+MIN/3) 

=  2  Heap  pointers 

=  3  Heap  pointers 

=  4  Base 

Storage  Queue  for  In-process  Parts  Repair  (GENERATED) 

REPQ  (LRQ,  I) 

I  =  1  Part  or  equipment  repair  resource  set 

=  2  "Basic"  resource  set  (if  prior  an  alternative) 

=  3  Buso*64/Base  of  origin 

=  4  Completion  time 

=  5  Pointers:  To  time  heap  (Unused  elements) 

=  6  Heap  pointer 

=  7  Prior  repairs,  same  shop 

=  8  Resources:  Personnel  Type*190/Number 

=  9  AGE  AGE1*100/AGE2 

=  10  Parent  LRU,  for  an  SRU  replacement  job;  SRU(+5000),  for  an  SRU 
repair;  or,  AGE(+10000),  for  an  equipment  repair 
=  11  Time  job  initiation  first  attempted 


l 

£ 

I 

II 

:| 


i 


Bas  ic  Parts  Repair  Procedures  (  I  NI’l.'T-jf8  ) 

REPRQT  (NOREP,  I) 

(Data  content  varies  for  parts  with  one  or  more  types  of  repair,  for 
an  LRU  and  tor  SRUs  ) 


Simple  Part 
with  single 
repair  procedure 


SRU  or 

other  repair 
procedure 


LRU  or  part 
with  multiple 
repair  procedures 


1  =  1 

=  2 
=  3 

=  4 

=  5 
=  6 

=  7 


=  8 


Shop  Next  procedure 

or  SRU 

Mean  repair  time*10/distribution 
Personnel:  Typo.*  1 00 /Number 

AGE:  AGE1*1 00/AGE2 


Shop 

Expected  time*10 
-1  for  LRU 
-2  for  multi-task 
First  procedure 
or  SRU 


--  Alternative  resource  set  - 

MTBF  Probabi lity*100 

(where  MTBF  is  expressed  as  sorties  per  failure  and  is 
generated  in  subroutine  AVGTSK) 

First  SRU  repair 
procedure;  or,  -1 
for  a  procedure 
rather  than  an  SRU 


MTBF 


Spare 


Requisitioned  Resource  Storage  Heap  (GENERATED) 

RESUPP  (LGQ,  I) 

1=1  Base*256  +  Number 

=  2  3200*Class  +  Type 

=  3  Arrival  time 

=  4  Pointers:  To  time  heap  (Unused  elements) 

=  5  Heap  pointer 


Storage 

:  of  Readiness  Dat< 

a 

(GENERATED) 

RINDEX 

(I.  MAXB ) 

I  =  1 

Cumulative  number 

of 

aircraft 

readied 

for 

f 1 ight 

in 

two  hours 

—  T 

Cumulative  number 

of 

aircraft 

readied 

for 

flight 

in 

four  hours 

=  3 

Cumulative  number 

of 

aircraft 

readied 

for 

flight 

in 

six  hours 

=  4 

Cumulative  number 

of 

a  i  rcraf t 

readied 

for 

f 1 ight 

in 

eight  hours 

Jl 
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Part  Location  in  Task  Network  Structure  (GENERATED) 

ROOTS  (NO PART,  MAXT ) 

Entry  is  task  network  root  element  for  network  within  which  part  is 
located . 


Temporary  Storage  of  Mandatory  Aircraft  Tasks  (GENERATED) 

RQDTSK  ( LRT ,  I) 

1  =  1  Task  number 

=  2  Pointer  to  next  task,  same  ac  (or  unused  elements) 


Task  T ime  Save  Factors  ( INPUT-#17/2 ) 

SAVE  (MAXB ,  J,  I) 

1=1  Nominal  reduction  in  overall  task  times  in  TTU 

=  2  Current  reduction  in  overall  task  times  in  TTU 

J  =  1  Unscheduled  on-equipment  tasks 
=  2  Preflight  tasks 

=  3  Off-equipment  repairs 

=  4  Munitions  assembly  jobs 

=  5  Civil  engineering  jobs 


SCI,  Preference  Listing  (INPUT-#  12) 

SCLP  (Prior ity (5 ) ,  MAXM,  MAXT,  I) 

I  =  1  Aircraft  combat  loading  in  order  of  preference  for  each  aircraft 
and  mission 

=  2  Mission-SCL  sortie  effectiveness  proxy 
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Resource  Requirements  for  Load  nig  SCLs  (INPUT-#13) 

SCI.RQT  (NOSCL,  I) 


I  -  1  Conf  igurat  iori"  10/ F  lag ;  shop  required  if  unity 

=  2  Required  time  for  first  munitions*100/distr ibut ion* 10/personnel 
subst itutabi 1 ity 

=  3  #1  Type  ammunition  Type*100/Number 

=  4  #1  Loading  equipment  EQP1* 100/EQP2 

=  5  it  1  Personnel  required  Type*100/Number 

=  6  Required  time  for  second  munitions*100/distr  ibut  ion'-'lO/personnel 
substitutability 

=  7  it 2  Type  ammunition  Type*100/Number 

-  8  it 2  Load  equipment  EQP3* 100/EQP4 

=  9  it 2  Personnel  required  Type*! 00/Number 


Random  Number  Stream  Control 


( INPUT-4‘2/2) 


SEEDED  (10) 


Only  when  reset  by  entries  on  the  it 2/2  Card  are  the  controlled  random 
number  streams  disengaged. 


Seeds  for  the  Controlled  Random  Number  Generators  (ENCODED) 

SEEDS  (10) 

Ten  seeds  are  stored  for  random  number  streams  that  may  be  repeated 
from  trial  to  triaL  (see  SEEDED). 

Aetna  1  Intra-Theater  Slpipp ing  Schedules  (GENERATED) 

SHIP  (NOSH I P ,  1) 

I  =  1  Shipment  number  (i.e.,  position  in  SHIPSC  array) 

=  2  Departure'  time 

=  3  Arrival  time 

=  4  Pointers:  Next  departure,  same  base 

=  5  Next  departure,  all  bases 

=  6  Next  arrival,  all  bases 

-  7  SHIPQ  location  of  first  resource  in  shipment 
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(GENERATEI) ) 


Intra-Theater  Sli  ipinent  Storage 
SH1PQ  (NOPKG,  I) 

I'n i t  quantities  of  the  various  rosources  must  be  defined  such  that  the 
"quantity  shipped"  is  never  as  large  as  100. 

1  =  1  Base  of  origin  *256  +  Quantity 

=  2  3200*Resource  Class  +  Type  of  resource 

=  3  Pointer  to  next  item,  same  origin,  same  destination,  and  same 

shipment  f unused  elements) 

Nomina]  Shipping  Schedules  (1NPUT-//32) 

SH1PSC  (N0S11P ,  I) 

I  =  1  Originating  base*64/Dest inat ion 

=  2  Last  day  scheduled*100/I)eparture  frequency  (days) 

=  3  Nominal  departure  hour 

Norrnnal  Transportation  Time  Delays  (INPUT-,433) 

SHIPTM  (Origin,  Destination,  I) 

1=1  Takeoff  delay*16/time  distribution 

=  2  Enroute  time*16/time  distribution 

=  3  Probability  of  arrival*100  (is  set  negative  when  no  shipment 

schedule  is  active  for  origin  and  destination) 

Pprtjs  Shjpping  1  ns  t  ruct  ions  (JNPUT-#34) 

SH1PT0  (MAXB ,  J,  2) 

This  array  stores  up  to  J  (20)  pairs  of  data  for  each  base;  the  first 
number  of  each  pair  is  a  part  number,  and  the  second  is  a  base  number. 

If  the  first  two  pairs  (i.e.,  for  J  =  1  and  2)  were  10:2  and  30:5,  that 
would  signify  that  parts  1  through  10  should  be  sent  to  Base  #2  for  repa 
and  that  parts  11  through  30  should  go  to  Base  #5. 


Temporary  Shop  Equipment  Storage  Array  (GENERATED) 

S HO PAG  (NOAGE) 

Used  to  store  damage  data  during  air  base  attack  computations. 


Temporary  Shop  Personnel  Storage  Array  (GENERATED) 

SHOPEO  (NOPEOP) 


Used  to  store  damage  data  during  air  base  attack  computations. 


( GENERATED) 


SHOPRQ  (SHOP,  MAXM,  MAXT ) 

Average  probability  that  shop  facility  is  required  per  sortie. 


Shop  Activity  Status  Array  (GENERATED) 

SHOPS  (I,  SHOP,  MAXB ) 


I 


=  1 
=  2 
=  3 
=  4 
=  5 
=  6 
=  7 
=  8 
=  9 
=  10 
=  11 
=  12 
=  13 
=  14 
=  15 
=  lb 

=  18 
=  19 
=  20 

=  21 
=  O  '» 

=  23 
=  24 
=  25-26 


Number  of  on-equipment  tasks  in  process 

Number  of  parts  repair  jobs  in  process  (or  minus  percent  damage) 

Pointers:  First  interrupted  task 

Last  interrupted  task 
Number  of  interrupted  tasks 
First  waiting  task 
Last  waiting  task 
Number  of  tasks  waiting 
First  task  in  TASKQ 
Last  task  in  TASKQ 
First  interrupted  repair 
Last  interrupted  repair 
Number  of  interrupted  repairs 
First  waiting  repair 
Last  waiting  repair 
Number  of  repairs  waiting 
First  repair  in  REPQ 
Last  repair  in  REPQ 

Hour  i even-numbered)  that  day  shift  begins 

Pointer  to  first  shop  that  borrows  personnel*! 28/Percent  of  tasks 
for  which  the  aircraft  is  partially  exposed  while  in  a  shelter 

First  deferred  task 

Last  deterred  task 

Pointer  to  first  shop  that  borrows  AGE 

Current  job  capacity  at  distributed  shop  locations  (default=10000') 

Spares 


Part  Shortage  Percentage  (GENERATED) 

SHORT  (NOPART) 

Temporary  storage  array  in  IPARTS. 


Shop  Sequence  Control  Data  Array  (INPlrT-#29) 

SHPOKD  no.  MAXT.  MAXB) 


A  zero  separates  simultaneous  sets  of  tasks  and  shops;  two  zeros  end  the 
sequence . 


Shipment  Pointers 


(GENERATED) 


SHPT  (Origin,  Destination,  I) 

1=1  Location  of  the  first  shipment  in  the  SHIP  array 
=  2  Location  of  the  last  shipment  in  the  SHIP  array 

=  3  Pointer  to  the  position  in  the  SHIPQ  array  of  first  item  without 
scheduled  transport 

Shop  Task  Probabi  1  i  ty  Storage  ( I NPUT-//30 ) 

SHPTSK  (I,  NOTASK,  SHOP(25),  MAXT ) 

1=1  Cumulative  task  probability  as  input  for  planning 
=  2  Task  numher 

=  3  Cumulative  task  probability  as  used  for  simulation  (see  UNCER) 

Sortie  Generation  Capabilities  (GENERATED) 

SORCAP  (MAXT,  MAXB) 

Rough  estimate  of  the  daily  number  of  sorties  that  can  be  flown. 


Sortie  Priority  and  Def i c icncy  Data  (GENERATED) 

SORDEF  (16,  I,  MAXM ,  MAXT,  MAXB) 

Data  for  sixteen  time-blocks  from  the  last  even-numbered  hour. 

1  =  1  Highest  priority  with  a  projected  deficiency*1000/Remaining  demand  for  sorties 
=  2  Projected  deficiency  at  highest  deficient  priority 
=  3  Projected  supply  at  the  highest  deficient  priority 


yofLT-LX  Record  of  Daily  Sort ies  (GENERATED) 

SORTHR  (24,  MAXB) 

Total  sorties  launched  each  hour  without  abort  during  the  current  day. 


Aircraft  Spares  (GENERATED) 

SPARE  (I,  MAXM,  MAXT,  MAXB) 

I  =  1  Pointer  to  first  spare  aircraft 
=  2  Number  of  spare  aircraft 


Temporary  Personnel  Storage  Array 
STAFF  (NOPEOP ,  I) 


(GENERATED) 


Stores  preattack  personnel  levels  in  subroutines  BOMB  and  REORGN. 
1=1  Total  on-base 

=  2  Number  unassigned  on-duty  personnel 

T  ime  Intervals  for  Debug  l),rta  ( IN  PUT-/)  2 ) 

START  (6) 

STOP  (6) 

The  beginning  and  end  of  six  time  intervals  during  which  the  debug 
output  is  to  be  printed. 


Temporary  Data  Storage  for  Composite  Flights  (GENERATED) 

SVEFLT" ( I ,5) 

1=1  Total  assigned  to  the  composite  flight 
=  2  Aircraft  assigned  to  the  component  flight 
=  3  Component  flight  number 
=  4  Mission 

=  5  Aircraft  type 

=  6  Base 

=  7-11  Misc .  factors 


Aircraft  In-process  Tasks  Storage  Array 


(GENERATED) 


TASKQ  (LTQ,  I) 


1  =  1 
=  2 
=  3 
=  4 
=  5 
=  6 
=  7 
=  8 
=  9 
=  10 
=  11 
=  12 
=  13 
=  14 

=  15 
=  16 


Task  number 

"Basic"  task  number  (when  prior  is  an  alternate) 
Aircraft  number 
Completion  time 

Pointers:  To  time  heap  (.unused  elements) 

Heap  pointer 

Next  task,  same  aircraft 
Prior  task,  same  shop 

Resources:  Personnel  -  Teaml  -  Type*100/Number 

AGE  AGE1*100/AGE2 

Time  basic  task  initiation  attempted 
Time  task  element  initiation  first  attempted 
Root  segment  for  elements  of  a  task  network 
Additional  personnel  on  Teaml  -  Type*100/Number 
(negative  for  a  load  crew) 

Personnel  Team2  -  Type"”]00/Number 

Additional  personnel  on  Team2  -  Type*100/Number 
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Nominal  Reconf igurat ion  Times  (GENERATED) 

TCONF  (MAXM1 ,  MAXM2 ,  MAXT) 

MAXM1  Next  mission 
MAXM2  Prior  mission 

Nominal  time  to  reconfigure  an  aircraft  from  the  preferred  configuration 
for  one  mission  to  that  for  another 


Temporary  Data  Storage  for  Flight  Aircraft  (GENERATED) 

TEMPF  (50,  I) 

1=1  Assigned  aircraft 

=  2  Previously  assigned  aircraft 

=  3  Assignment 

=  4  Crew  number 

Planning  Time-Horizon  Data  (INPUT-#3/2) 

THDATA  (J,  I) 

1=1  Horizon  data  (1=2,3)  applies  when  time  of  day  is  greater  than 
THDATA  (J-1,1)  and  no  more  than  THDATA  (J,l) 

=  2  Time  horizon  (TTU) 

=  3  Length  of  the  16  Lime  blocks  within  the  time  horizon  (TTU) 

J  =  1-4  Provides  for  four  different  time  horizons  for  planning 

Temporary  CIRF  Pipeline  Parts  Storage  (GENERATED) 

T0C1RF  (NOFART,  1) 

I  =  1  Total  in  CONUS-CIRF  pipeline  stock  (for  CIRF  and  bases) 

=  2  Portion  of  CONUS-CIRF  pipeline  to  be  retained  at  CIRF 


(GENERATED) 


TOTALS  (NOPART,  MAXB ,  I) 

1=1  Authorized  numbers  of  parts 
=  2  Actual  on-base  numbers  of  parts 
=  3  Actual  numbers  of  parts  allocated  to  a  C1RF 


Temporary  Parts  Storage  Array  ( ISPVT-//23) 

TPART  (EXTPRT,  I,  , MAXB) 

Used  with  the  automatic  parts  initialization  feature  to  temporarily 
store  addition. al  stock  information. 

1=1  Number  serviceables  on  base  *100 

=  2  Number  reparables  on  base  *100/total  items  in  shop 
=  3  Nominal  stock  level*128/percent  NRTS 
=  4  Part  number 

TRAP  Stock  Data  (lNPUT-f/24) 

TRAP  (NOTRAP,  MAXB) 

Current  on-base  stock  level  for  each  type  of  TRAP. 


Requirements  for  Expendable  TRAP 
TRAPRQ  (I,  3,  T) 

1=1  TRAP  type  (only  three  types  per  aircraft  type) 

=  2  Expected  number  of  expendable  TRAP  required  per  sortie 


Parts  Repair  Procedure  (INPUT-#23/78) 

TRAY  (NOPART) 

AIS  tray  number  used  to  repair  part. 


AIS  Tray  Characteristics 


( INPUT-#22/77 ) 


TRAYS  (NOTRAY) 

Probability  that  a  particular  tray  is  affected  by  the  non-availability  of 
an  AIS  component  *10000. 
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A1S  Tray  Status  Data  (GENERATED) 

TRAYST  (NOTRAY,  I,  MAXB) 

l  =  l  Unity  if  tray  at  station  #1  is  out  of  service 
=  2  Pointer  to  next  affected  tray 


Sort  ie  Demand  Summary  (GENERATED) 

TRYFI.Y  (6,  MAX'T ,  MAXB) 

Daily  tally  of  the  sorties  demanded  during  each  of  six  5-hour  periods 
starting  at  2000. 


A 1 ternat ive  Aircraft  Task  Procedures  (INPUT-#7) 

TSKALT  (NOTSKA,  I) 

1=1  Required  t ime*10/distribution 

=  2  Personnel  required  -  Teaml  -  Type*100/Number 
=  3  AGE  required  AGE*100/AGE2 

=  4  Alternative  resource/Shop  required  if  >0 
=  5  Personnel  required  -  Team2  -  Type*100/Number 


On -Equipment  Task  Critical ity  (ENCODED) 

TSKCRT  (Task  Criticality  Index(99),  5) 

For  each  value  of  the  task  criticality  index,  stores  a  coded  number  that 
denotes  whether  the  task  is  essential  for  each  of  the  five  different 
mission  types.  A  zero  denotes  that  the  task  is  not  essential,  a  one 
denotes  that  it  is.  TSKCRT  is  initialized  in  BLOCK  DATA. 

Total  On-Equipment  Task- Incidence  Probabi 1 ity  (INPUT-#44) 

TSKPR  (SHOP (25),  MAXT ,  I) 

1=1  The  cumulative,  per  sortie  probability  that  an  aircraft  of  a 

specified  type  will  generate  a  problem  that  will  (eventually) 
require  shop  attention;  value  used  for  planning 
=  2  Percentage  that  modifies  the  breakrates  for  each  task  in  a  given 
shop  for  a  specified  aircraft  type*128/percent  reduction  in 
breakrate  per  sortie/day/PAA  achieved  above  unity  when 
VBREAK  =  1 

=3  As  for  1=1,  except  value  is  that  used  for  simulation 


Basic  Aircraft  Task  Procedures 


(INPUT-#5) 


TSKRQT  (NOTSK,  I) 


I 


1  Nominal  shop*10/Coded  entry  designating  repair  location  and  shop 

requirement  (see  Vol.  II,  Fig.  4) 

2  Part  number  for  root  segment;  with  task  following  root  segment, 

task  will  be  skipped  when  -1  is  entered 

3  Time  required*10/distr ibution 

4  Personnel  required  -  Teaml  -  Type*100/Number 

5  AGE  required  AGE1*100/AGE2 

6  Alternative  resource  set 

7  Parallel  task 

8  Subsequent  task 

9  Probability  (in  tenths  of  percent)  task  is  required*10/Flag 

where  Flag  is  defined  as: 

1.3.5  or  7  if  cross-trained  personnel  may  be  used; 

2.3.6  or  7  if  task-assist-qualified  personnel  may  be  used; 

4-7  if  the  task  is  unscheduled  maintenance 

10  Expected  total  time  for  network 

11  Pointer  to  first  incompatible  task 

12  Probability  part  is  required*128/Probability  part  is  condemned 

13  Task  criticality*64/Task  stress 

14  Personnel  required  -  Team2  -  Type*100/Number 

15  Split-rejoin  flag 


Storage  Array  for  Waiting  Tasks  (GENERATED) 

WAITSK  (LWQ,  I) 


1 


1  Task  number,  or  part,  SRU,  or  equipment  repair  procedure 

2  Aircraft  number  or  (Base*64/base  of  origin) 

3  Number  of  part  required,  if  any;  or  preflight  status  flag  *10/ 

personnel  substitutability 

4  AGE  for  on-equipinent  tasks;  LRU,  when  SRU  replacement  job  is 

waiting;  SRU(+5000),  when  SRU  repair  waiting;  or  AGE(+10000), 
when  selected  AGE  procedure  waiting 

5  Personnel  for  on-equipment  task;  or,  for  repairs,  SFLAG  (=1  when 

required  SRU  has  been  set  aside) 

6  Pointers:  Next  task,  same  aircraft  (unused  elements) 

7  .  Next  lower  priority  task  in  shop 

8  Next  higher  priority  shop  task 

9  Estimate  of  time  remaining  before  aircraft  ready  to  fly 

10  Resource  causing  wait;  Class*3200/Type 

11  Time  basic  task  initiation  attempted,  or  repair  began 

administrative  delay 

12  Time  task  element  initiation  first  attempted,  or  repair 

initiation  was  first  attempted 

13  Root  segment  for  elements  of  a  task  network 
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Theater  Weather  (INPUT-# 30) 

WXDATA  (DAY.  GR()UP(2),  MAXB) 

The  five-digit  number  stored  in  each  element  is  packed.  Each  of  the  two 
groups  of  numbers  apply  to  a  subset  of  the  aircraft  types.  The  left-hand 
digit  of  the  first  and  second  groups  denote  the  flying  conditions  for 
aircraft  types  #1  and  #6,  respectively;  subsequent  digits  refer  to  the 
other  aircraft  types  in  numerical  order.  A  zero  denotes  that  the 
conditions  are  flyable,  a  1  that  they  are  not.  DAY  may  not  exceed 
WXDAYS . 


Resource  Report  Transmittal  Data  (INPUT-#36) 

XMIT  (I,  MAXB) 

1=1  Transmittal  time  [ 30*(20*HR+MIN/3) ] /Distribution 
=  2  Loss  rate  of  individual  data*100 
=  3  Loss  rate  for  entire  report*100 

=  4  Base  communications  status--Link  closed  if  unity 

Multi-trial  Base  Statistics  (GENERATED) 

XSTAT  (10,  30,  MAXB) 

Miscellaneous  output  statistics  by  day  and  base. 


Multi-trial  Theater  Statistics  (GENERATED) 

XXSTAT  (10,  30) 

Miscellaneous  overall  output  statistics 

Zero-time  Parts  Activity  List  (GENERATED) 

ZPRTRQ  (NOPART) 

Used  to  store  a  specially  constructed  parts  list  required  in  initializing 
the  zero-time  shop  activities. 


Initialization  of  Maintenance  Activity  at  Zero  Time  (INPUT-#42) 

ZTASKS  (I,  MAXT,  MAXB) 

I  =  1-3  Percent  aircraft  with  ongoing  tasks  at  time  zero*100/Number  of 
tasks  (a  3-part  distribution) 

=  4  Number  of  parts  in  administrative  delay  at  time  zero 

=  5  Number  of  parts  repairs  at  time  zero 
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APPENDIX  C 

TSAR  SUBROUTINES  AND  PRIMARY  FUNCTION 
The  complete  FORTRAN  source  code  for  the  TSAR  airbase  simulation  is 
organized  into  ten  functionally  related  groups  of  subroutines  that  have 
normally  been  filed  in  ten  sections  as  Tab  A  through  Tab  J.  The  general 
contents  of  each  tab  are  indicated  below,  and  the  names  and  oasic  func¬ 
tions  of  each  of  the  subroutines  in  each  group  are  listed  on  the  follow¬ 
ing  pages  in  the  order  in  which  they  are  filed.  Definitions  of  the  pri¬ 
mary  variables  and  data  storage  arrays  will  be  found  in  Appendixes  A  and 
B.  All  subroutine  statements,  entry  statements,  and  call  statements  are 
listed,  along  with  their  argument  lists,  in  the  order  that  they  appear 
in  Appendix  E. 


TAB 

A 

Simulation  Management 

TAB 

B 

Input 

TAB 

C 

Initialization  and  Output 

TAB 

D 

Sortie  Demand  and  Aircrew  Management 

TAB 

E 

Aircraft  Maintenance 

TAB 

F 

Aircraft  Preflight  Maintenance 

TAB 

G 

Parts  Repair 

TAB 

H 

Airbase  Attack  and  Recovery 

TAB 

I 

Communications 

TAB  J 


Support  Services 


Subroutine  Organization  and  Primary  Function 


TAB  A 


Simulation  Management 


MAIN  Executive 

TRIALS  Manage  Trials 

MANAGE  Manage  Simulation 

ADAPT  Manage  Adaptive  Behavior 

CONTRL  Manage  Theater  Resources 

FERRY  Recover,  Transfer,  and  Divert  Aircraft 

GOHOME  Manage  Aircraft  at  Emergency  Recovery  Base 


TAB  B 


I  nput 


TAB  C 


INIT  Manage  Block  Storage 

INPUT  Enter  Airbase  Resource  Data 

INPUTA  Aid  INPUT  to  Read  and  Store  Card  Types  it 6-39 

INPUTB  Aid  INPUT  to  Read  and  Store  Card  Types  #41-49 

INPUTC  Read  Attack  and  Damage  Data  from  Card  or  Disk 

WRAPUP  Control  Initialization  Data  Manipulation 

ICHECK  Check  and  Record  Shops  that  Borrow  Personne 1 /AGE 

HELPCK  Assist  ICHECK 

INLIST  List  Specified  Data  Arrays 

HEADER  List  Summary  of  Simulation  Basic  Conditions 

INITIZ  Initialize  Heaps,  Queues,  and  Aircraft 

ZSHOPS  Initialize  On-  and  Of f-eqnipment  Activity 

TESTER  Edit  Card  Input  Data 

MODIFY  Manage  Time  Dependent  Parameter  Changes 

CKNF.T  Chock  Task  Network  Segments 

CKRQT  Determine  Parts  Requirements  for  CKNET 

CKSPLT  Assist  CKNET  with  Split  and  Rejoin  Networks 

Initialization  and  Output 

COMPRT  Control  Spare  Parts  Initialization 

IPARTS  Initialize  Base  Parts  Stock 

IPART2  Assist  IPARTS  to  Initialize  Parts  Pipeline 

CKNRTS  Compute  Effective  NRTS  Rates 

RREQTS  Compute  Average  Resource  Demand  Data 

REQTS1  Assist  RREQTS 

OUTPUT  List  Daily,  Trial,  and  Overall  Results 

ASSETS  List  Current  Stock  Levels 

ASSET2  List  Current  Stocks  Levels  by  Type 

TIMES  Collect  Task  Time  Data 

DELAYS  Prepare  and  List  Task  Times  and  Delays 

PS110RT  Estimate  Parts  Shortages 

JOBLST  Format  and  Print  Aircraft  Time  Histories 

DEFERS  Compute  and  Print  Deferred  Task  Summaries 


TAB  I) 
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Soi  l  ii-  Di-iii. linl  ami  Aircrew  Management 

KKADKT  I.ntei  Sortie  Demand  Data 

FRAG  Selei  t  Base  For  Sortie  Demand 

FLAN  Dr-  let  i  Sortie  Supply 

1‘l.ANl  1 1 1  o  ]  e  i  t  Sortie  Demand  and  Deficiencies 

BASCAP  l.st  incite  Base  Capabilities  to  Generate  Sorties 

RFASSG  Revise  Assigned  Mission 

FLYF.KS  Manage  Aircrews 

I)  I  SABI.  eliminate  Dost  Air  Crews 

FRIGHT  Assemble  Ready  Aircraft  arid  Crews 

LAUNCH  Launch  Flights 

SORT  Order  Launch  Schedules 

TAB  E  Aircrait  Maintenance 

PSTFLT  Assess  Maintenance  Roqu i rements ,  Designate 

Tentative  Mission  Assignments 
RUNAC  Manage  Aircraft  Maintenance 

1NITSK  Check  Resource  Availability  to  Initiate  Tasks 

DOTASK  Enter  Tasks  into  In-process  Heap 

ENDTSK  Conclude  On-equipment  Tasks,  Release  Resources 

CHKWX  Check  Weather  for  Deferred  Maintenance 

INIDEF  Manage  Deferred  Aircraft  Maintenance 

CANNIB  Select  Donor  Aircraft  for  Parts  Cannibalization 

INCOMP  Check  for  Task  Incompatibilities 

CK'CRIT  Assist  PSTFLT  in  Assessing  Ready-to-fly  Time 

CKROOT  Prevent  Multiple  Processing  cf  Chained  Jobs 

SCHJOB  Organize  Tasks  for  Aircraft  Ferried  to  Rear 

SPLIT  Manage  Network  Paths  that  Split  and  Rejoin 

GETPEO  Locate  Personnel  for  On-Equipment  Tasks 

TAB  F  Aircraft  Preflight  Maintenance 

PREFLT  Manage  Preflight  Maintenance 

ASSIGN  Finalize  Aircraft  Mission  Assignment 

RECNTG  Check  and  Perform  Needed  Reconfiguration 

UPLOAD  Load  Munitions 

REFUEL  Refuel  Aircraft 

DOWPRE  Check  and  Initiate  Waiting  Preflight  Tasks 

MUNEED  Establish  Munitions  Requirements 

CKBILD  Define  Munitions  Assembly  Requirements 

DOBILD  Initiate  and  Complete  Munitions  Assembly 

CKPEOP  Check  for  Personnel  Substitutions 

CKAGE  Check  AGE  Requirements 

ADDAGE  Reorganize  Equipment  for  a  COMO  Organization 

CKALRT  Manage  Resources  Required  for  an  Alert  Aircraft 

RELALT  Release  Alert  Aircraft  Resources 

TAB  G  Parts  Repair 

ADMIN  Receive  Faulty  Parts  and  Manage 

Administrative  Delay  Heap 
Manage  Disposition  of  Repaired  Parts 


RUNS11P 
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TAB  H 


TAB  I 


TAB  J 


IN'IHHP  Check  Resource  Availability  to  Initiate  Repairs 

DORKP  Knter  Repairs  into  In-process  Heap  -  REPQ 

ENDREP  Conclude  Repairs,  Release  Resources 

SAIA'AG  Disassemble  LRUs  to  Provide  SRUs  for  Repair 

CKC1RF  Reassign  CIRF  Resources 

REPRTY  Establish  CIRF  Repair  Priorities 

CKAIS  Manage  AIS  Activity 

NRTS1T  Select  Location  to  Receive  Reparables 

Airbase  Attack  and  Recovery 

Inflict  Specified  Damage 
Reorganize  Base  Operations 
Complete  Base  Reorganization 
Locate  Activity  in  Distributed  Shop 
Manage  Post-attack  Reconstruction 
Assign  Resources  and  Initiate  Reconstruction 
Conclude  Base  Repairs,  Release  Resources 
Eliminate  Records  for  Aircraft  Killed  On  Base 
Eliminate  Aircraft 
Compute  Reconstruction  Time 
Ship  Faulty  Parts  to  CIRF  When  Shop  Damaged 

Communications  Systems 

Schedule  Intra-theater  Shipments 
Prepare  Resources  for  Shipment 
Order  Replacement  Resources  from  CONUS 
Manage  Departures  and  Arrivals 
Transmit  and  Receive  Resource  Status  keports 

Support  Services 

SHIFT 
REDPF.O 
CHECK 
STRTSK 
KEPNOK 
AVGTME 
INTRUP 
WAIT 
HEAP 
ACWAIT 
RESET 

BLOCK  DATA 
TT1NE 
SHPRQT 
BREAK 
LOSSES 
RANDG 
ACCRIT 


Manage  Shift  Changeover 

Reduce  Staff  Level  and  Reorganize  Shifts 
Check  Requirements  for  Released  Resources 
Store  Required  and  Deferred  Tasks 
Enter  and  Remove.  Aircraft  "Hole"  Reports 
Estimate  Unconstrained  Shop  Performance 
Manage  Time-ordered  Interrupted  Queues 
Manage  Time -ordered  Wait  Queues 
Manage  Data  Heaps 

Insert  On-Equipment  TAsks  into  WA1TSK  Array 
Reset  Event  Times  for  Extended  Simulations 
Store  Task  Criticality  Definition  Data 
Select  True  Time  from  Distributions 
Select  Unscheduled  Maintenance  Tasks 
Compute  Variable  Breakrate  Factors 
Sample  Binomial  Loss  Distribution 
Generate  "Controlled"  Random  Numbers 
Compute  Aircraft  Criticality  Periodically 


SCSI!  IP 

SHPRES 

ORDER 

D0SH1P 

STATUS 


BOMB 

REORGN 

RE0RG2 

PICK 

REBILD 

TNICON 

BSF.REP 

ENDAC 

KILLAC 

FT  I  ME 

SHC1RF 


-58- 


Minor  Functions 

LIST1 ,  LIST2 ,  LIST3,  LIST4,  LIST5 
THF,  TH,  TOD,  DATE,  DAY,  HRMIN,  SHOPST 

HELPER  Assistant  for  Debugging 

ENTRYP  Assembly  Language  Routine  to  Define 

Origin  in  Core  During  Execution 


Auxiliary  Programs 


SIZE. TSAR. STORAGE  Compute  Required  Storage  Space  for 
TSAR's  Labeled  Common  Statements 


-  -  ~  -.j—r-rnT 
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APPENDIX  D 
LOAD  MODULE  MAP 

This  appendix  reprints  portions  of  the  load  module  map  generated 
during  the  link-edit  step  of  a  compile  and  link-edit  task.  The  name  of 
each  subroutine  and  the  name  of  entry  points  in  each  subroutine  are 
listed.  In  addition  the  size  of  the  storage  area  required  for  each  sub¬ 
routine  (.expressed  in  terms  of  the  number  of  8-bit  bytes  required)  and 
the  location  of  the  subroutine  in  the  overlay  structure  are  given.  The 
sizes  listed  are  consistent  with  the  illustrative  values  used  in  Appen¬ 
dix  H . 


LENGTH  ENTRY  POINTS 

Subroutines  in  the  Root  Segment 


MAIN 

220 

TRIALS 

6D2 

MODIFY 

C3A 

NEWVAL 

ZVALUE 

CKNET 

1354 

CKDAM 

HEAP 

CIO 

INHEAP 

OUTHEP  EXHEAP 

SHPRQT 

6C4 

SHPRQ 

TTIME 

626 

RANDG 

3A4 

I RANDG 

CRANDG 

SHOPST 

13E 

DATE 

150 

DAY 

DC 

DAT I ME 

2F7 

TOD 

E6 

HRMIN 

10A 

THF 

15A 

TU 

15A 

Common 

Statements  in  the 

Root  Segment 

BASIC1 

2044 

BASIC2 

37F8 

BASIC3 

3AF0C 

BASIC4 

550 

STOCKS 

1E996 

JOBS 

16F6A 

LOAD 

2EE0 

MODHEP 


THEATR 

82C8 

BOMBSE 

6ADC 

REQTS 

5894 

INFO 

11B1A 

OUT 

1D5C0 

C PARTS 

7FDE 

AISCOM 

1A80 

TESTS 

1C 

ZZNORS 

C8 

TIMHOR 

18 

RECNF 

C 

LDAMMO 

16 

TEMPI 

12 

TEMP2 

2 

TEMP3 

12 

TEMP4 

24 

TEMPS 

BB8 

ENTRY  POINTS 


Subroutines  in  the  Input  and  Initialization  Segment 


INIT 

INPUT 

INPUTA 

INPUTB 

INPUTC 

TESTER 

WRAPUP 

ICHECK 

HELPCK 

INLIST 

HEADER 

INITIZ 

CKSPLT 

COMPRT 

I  PARTS 

IPART2 

CKNRTS 

PSHORT 

RREQTS 

REQTS1 

AVGTME 

ENTRYP 

CKRQT 

LIST1 

LIST2 

LIST3 

LIST4 

LIST5 


1056 
1FF0 
405C 
FA2 
DA2 
2588 
2768 
22A8 
832 
1BE6 
1706 
ABE 
8B6 
105C 
4BDA 
329A 
75C 
21E 
D7A 
1 14A 
1  7E2 
A6 
B2A 
4B2 
20C 
22C 
4AA 
20C 


STORE  RECALL  DOSAVE  RECOVR 


INPUTD  INPUTE 


IHELPC 


TEMPRQ  ZSPLIT 


REQTS2  REQTS3 

CKRQMT  CKRQT2 
LIST1E 


LIST4E 
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Common  Statements  in  Llie  Initialization  Segment 


PURGE  1 

9948 

PURGE2 

6060 

PURGE3 

29850 

L0CAL1 

4F4 

ENTRY  POINTS 


Subroutines  in  the  Simulation  Segment 


MANAGE 

2BAE 

MANAG 

CONTRL 

3296 

SEND 

ORDERP 

GETPRT 

FINDPT 

ADAPT 

50C 

FERRY 

2EB8 

LAND 

NEWAC 

GOHOME 

45A 

ZSHOPS 

157E 

ZNOR 

6E2 

OUTPUT 

4714 

ASSETS 

A60 

ASSET2 

76E 

TIMES 

6B6 

DOT I ME 

WAITS 

DELAYS 

3D66 

DELAY1 

DELAY2 

JOBLST 

61A 

READFT 

1EDC 

DAYONE 

SCHFLT 

SORTIE 

FRAG 

DCA 

PLAN 

1AC6 

PLAN1 

D14 

BASCAP 

3BAA 

REASSG 

1EB0 

FLYERS 

12E6 

GETPLT 

RELIEF 

SAVPLT 

FLY  AC 

LANDAC 

DISABL 

72A 

FLIGHT 

2F5A 

LAUNCH 

1 7A2 

FLY 

SORT 

652 

INSORT 

OUTSRT 

PSTFLT 

3F14 

RUNAC 

40B2 

RUNAC2 

STARTM 

INITSK 

3E44 

ZTASK 

NEWTSK 

RETASK 

DOWTSK 

DOTASK 

1472 

ADDTSK 

ADDTK 

STPTSK 

ENDTSK 

F14 

CHKWX 

518 

INIDEF 

A4C 

GANN IB 

125C 

INCOMP 

70A 

CKCRIT 

5CA 

CKROOT 

480 

SCHJOB 

F08 

SPLIT 

724 

JOIN 

GETPEO 

F92 
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ENTRY  POINTS 


PREFLT 

1550 

PRFLT 

REARM 

ASSIGN 

19FC 

RECNFG 

1966 

UPLOAD 

1002 

REFUEL 

A2E 

DOWPRE 

259E 

DOWPF 

INWPRE 

MUNEED 

27 1A 

CKBILD 

1562 

DOBILD 

239C 

DOWBLD 

ENDBLD 

STPBLD 

CKPEOP 

646 

CKAGE 

B9A 

USEAGE 

RTNAGE 

ADDAGE 

A62 

CKALRT 

CD2 

DOALRT 

ENDALT 

RELALT 

7A0 

ADMIN 

13FA 

Z ADM IN 

ADMINI 

ADM I NO 

RUNSHP 

A90 

INIREP 

3850 

ZREP 

NEWREP 

REREP 

DOREP 

CD6 

ADDREP 

STPREP 

ENDREP 

7E4 

SALVAG 

75E 

CKCIRF 

83A 

REPRTY 

A64 

PRTY1 

PRTY2 

PRTY3 

CKAIS 

1628 

USEAIS 

AISREP 

FIXAIS 

NRTSIT 

5CC 

BOMB 

400E 

REORGN 

2592 

REORG2 

3060 

PICK 

380 

REBILD 

8F6 

INICON 

D88 

BSEREP 

CBE 

ENDCE 

ENDAC 

1804 

BENDAC 

KILLAC 

652 

FT  I  ME 

234 

SHCIRF 

680 

SCSHIP 

DB6 

SHPRES 

F12 

ORDER 

978 

DOSHIP 

232C 

RECSUP 

REFIL 

STATUS 

1094 

SNDRPT 

RECRPT 

SHIFT 

1450 

REDPEO 

1730 

CHECK 

2DC6 

ZCHECK 

STRTSK 

C1C 

STTASK 

REMTSK 

NORRPT 

C7C 

RPTNOR 

REDNOR 

I NTRUP 

6AC 

ININT 

OUT I  NT 

WAIT 

6F8 

INWAIT 

OUTWAT 

ACWAIT 

62C 

Qfi 


DOWREP 


PRTY4 
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ENTRY  POINTS 


RESET 

BREAK 

LOSSES 

ACCRIT 

HELPER 


90E 

4FA 

222 

59E 

39A  XHELP 


Common  Statements  in  the  Simulation  Segment 

PURGE4  708 
PURGE5  FAO 
LOCAL2  A 10 
LOCAL3  1AD0 
L0CAL4  SO 
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APPENDIX  E 

CALL  MAP  FOR  TSAR  SOURCE  CODE 

This  section  provides  a  comprehensive  record  of  the  access  among 
the  subprograms  (i.e.  subroutines)  that  constitute  TSAR.  It  consists  of 
a  complete  list  of  all  subroutine  statements,  entry  statements,  and  call 
statements  in  the  order  in  which  they  appear  in  the  TSAR  source  code, 
except  that  only  one  call  to  any  particular  subroutine  (entry)  is 
retained  for  each  subroutine  or  entry  statement.  The  statements  appear 
as  they  are  found  in  the  code,  complete  with  their  argument  lists. 

This  listing  provides  a  ready  reference  for  determining  all  calls 
to  any  given  subroutine;  it  is  especially  useful  when  stored  in  a  com¬ 
puter  where  a  text  editor  can  be  used  to  locate  all  appearances  of  any 
specified  name.  (A  machine  readable  copy  will  be  provided  along  with 
each  copy  of  TSAR  that  is  distributed.) 


TAB 


MAIN  EXECUTIVE 

CALL  ENTRYP 
CALL  TIMON 

CALL  ERRSET(210, 10, 10,2,0) 
CALL  INIT 
CALL  INPUT 
CALL  INLIST 
CALL  INITIZ 
CALL  TRIALS 
SUBROUTINE  TRIALS 

CALL  ZCHECK 

IF  (NEWPRT  .GE.  2) 

IF  (ZNORS  .EQ.  1) 

IF  (STATE  .GT.  0) 

IF  (NEWPRT  .LT.  2) 

CALL  NEXTR(  X,  TSEED) 

CALL  RSTART(  NXSEED  ) 

CALL  RECALL(IT) 

IF  (ZNORS  .EQ.  1) 

IF  (STATE  .GT.  0) 

IF  (REP0RT( 1,1)  .GT.  0) 
CALL  SCSHIP 


A 


CALL  STORE 
CALL  ZNOR 
CALL  BASCAP 
CALL  STORE 


CALL  ZNOR 
CALL  BASCAP 
CALL  STATUS 
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CALL  DAYONE 
CALL  MANAG 

IF  (ZSHOP  .EQ.  1)  CALL  ZSHOPS 

CALL  RESET 
CALL  MANAGE (EXFLAG) 

CALL  OUTPUT 

SUBROUTINE  MANAGE (EXFLAG) 

CALL  TIMOF(TIMEU) 

IF  ((TEST  .GT.  0) . OR . (TEST1  .LT.  0))  CALL  HELPER  (L,  NP) 
CALL  ENDCE(NP) 

CALL  RUNAC(NP) 

CALL  RUNSHP(NP) 

CALL  ACCRIT 

CALL  OUTHEP(PERIOD(l,l),20,l,N20,N0,N0,NP,TIME) 

CALL  ASSETS 
CALL  SHIFT 

CALL  CHECK ( SHOP , NO . NO , NO , NO , B . FLAG ) 

IF  (CREWS  .EQ.  1)  CALL  RELIEF 

CALL  PLAN 

IF  (BUILD  .EQ.  1)  CALL  MUNEED 

CALL  EXHEAP(PERI0D(1 , 1) ,20,1, N19.N0, NO, N10) 

CALL  1NHEAP(PERI0D(1, 1), 20,1, N18,N10,LE, TIM) 

CALL  CHKWX 
CALL  READ FT 

CALL  EXHEAP ( PERIOD ( 1 , 1) , 20 , 1 ,N19 ,NO,NO,N3) 

CALL  I NHEAP ( PERIOD (1,1) ,20, 1 ,N18 ,N3 ,N0 ,NEXTSC) 

CALL  SCHFLT 

CALL  OUTPUT 

CALL  ADAPT 

CALL  CONTRL 

CALL  SCSI! IP 

CALL  RECSUP 

CALL  DOSHIP(TIME.l) 

CALL  D0SH1P(TIME,2 ) 

IF  (AID  .EQ.  0)  CALL  RECRPT(LOC) 

IF  (AID  .EQ.  II  CALL  SNDRPT(LOC) 

CALL  ADM  I NO 
CALL  BASCAP 
CALL  MOD I FY ( LOC ,  NEXT) 

CALL  BOMB (LOC) 

CALL  INHEAP (PERIOD! 1,1) ,20, I, N19.NP.N0, TIME) 

CALL  OUTHEP ( ACN ( 1 , 18) .MAXACN, 1 ,NEH,NO,NO,NP.TT) 

CALL  LAND(NP) 

CALL  STARTM (NP ) 

CALL  KUNAC2 (NP,N'j0026) 

CALL  FLY (NP , I’KTY , MI SS.ACTYPE, BASE, SPARE ( 1 , MISS .ACTYPE .BASE) ) 

CALL  FLIGHT 

CALL  F.NDBLD(NP ,  BASE ) 

CALL  DOVBLD ( BASE , FLAG ) 

CALL  I)OWPF( BASE. SHOP) 

CALL  REFIL(NP) 

ENTRY  MANAG 


CALL  I NHKAP  (  PKR 1 01)  ( 1  ,  1 )  ,20, 1  ,NE,FE,LE,N1NF) 
SUBROUTINE  ADAPT 

CALL  NEWVAL  (  I)DD(l)  ) 

SUBROUTINE  CONTRL 

CALL  MODUE  P ( RE  PORT ( 1,1) , NOREPT.NORPT, I ,N480) 

CALL  SHPKES  (N3.  PART ,  N 1  .  MMAXB  ,  DBASE  ,  MMAXB  ) 

ENTRY  SEND(ARG1 ,  ARG2,  RETAIN) 

CALL  SHPRES ( N3 , PART , N 1 . RBASE , DBASE , RB ASE ) 

ENTRY  0RDERP(ARG1 ,  ARG2 ,  ARG3  ) 

ENTRY  GETPRT (ARG I ,  ARG2  ) 

ENTRY  FINDPTl ARG1 ,  ARG2  ) 

CALL  SHPRES (N3 , PART , N 1 , MMAXB .DBASE .MMAXB) 
SUBROUTINE  FERRY (NAC .ARG 1 .NNEXT.PFLAG) 

CALL  GETPLT( ACTYPE. BASE. CREW) 

CALL  FLYAC (NAC , CREW . NOW . ACTYPE . BASE ) 

CALL  ENDAI.T (  NAC,  ACTYPE,  BASE,  NO,  NO  ) 

ENTRY  LAND  I NAC) 

ENTRY  NEWAC(NAC) 

CALL  LANDAC (NAC, LOST, BASE, NEXT) 

CALL  END AC (NAC, ACTYPE, NEXT, 1) 

CALL  KI LLAC (NAC ,  1) 

CALL  REDNOR( PART, NAC ,BASE ,N0 ,N0) 

CALL  RPTNOR ( PART , CR IT , NAC , S I GNAL) 

CALL  OUTWAT ( SHOPS ( 8 , SHOP , BASE ) , SHOPS ( 6 , SHOP , BASE ) , 
SHOPS (7, SHOP, BASE), NT  ) 

CALL  1NWAIT(SH0PS(8, SHOP, NEXT) .SHOPS (6, SHOP, NEXT) , 
SHOPS (7, SHOP, NEXT) , TME , NN ) 

CALL  PSTFLT ( NAC , COMBAT .DIVERT , TRANS . REPLAC , HURT) 
SUBROUTINE  GOHOME  (SWITCH,  BASE) 

CALL  FERRY  (  NAC,  EMERG,  HOME,  PFLAG  ) 
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TAB  B 


SUBROUTINE  I  NIT 
ENTRY  STORE 
ENTRY  RECALL! IT) 

CALL  I RANDG(  SEEDS! 1)  ) 
CALL  COMPRT!  ICARGO  ) 

IF  (DAMODE  .EQ.  2) 
LTATT ,  NOFAC , 
IF  ! DAMODE  .EQ.  3) 
LTATT,  NOFAC. 

ENTRY  DOSAVE 

CALL  CRANDG!CSEEDS! 1 ) ) 
ENTRY  RECOVR 

CALL  IRANDG(CSEF,DS(  1 )  ) 
SUBROUTINE  INPUT 

CALL  ZVAI.UE 


CALL  INPUTC! IT.  ITEM.  DAMODE.  PRINT,  NOATT, 
ATTACK! 1,1),  NITEM,  DAMAGE! 1,1)  ) 

CALL  INPUTD!  IT,  ITEM,  DAMODE,  PRINT,  NOA'IT, 
ATTACK  (1,1),  N1TF.M  .  DAMAGE  ( 1  ,  1)  ) 


CALL  TESTER ( 1 , J ,D( 1 ) , NAC , AP( 1 ) , ICARGO  ) 

IF  (SEED  .GT.  0)  CALL  RSTART! I  SEED) 

CALL  INPUTA(I ,J,D, NAC. AP, ICARGO  ) 

CALL  INPUTB (  I,  J,  D) 

IF  (UNCER  .NE.  0)  CALL  TTIME (AID ,UNCER , AID ,N0 ,N0 ,N0 , N5 ) 
CALL  I NPUTE ( ITR I AL , J , D , ITEM , DAMODE .PRINT, NOATT , LTATT , NOFAC , 
ATTACK, NITEM, DAMAGE, TEST  ) 

CALL  IRANDG(  SEEDS(l)  ) 

CALL  WRAPUP(  AVGTSK( 1,1),  AVGREP(l.l),  ICARGO  ) 

SUBROUTINE  INPUTA( I ,J ,D , NAC ,AP , ICARGO  ) 

SUBROUTINE  INPUTB!  I,  J,  D) 

CALL  NEWVAL(  DDD(l)  ) 

SUBROUT 1 NE  I NPUTC ( I TR I AL , I TEM , DAMODE .PRINT, NOATT , LTATT , NOFAC , 

ATTACK, NITEM, DAMAGE  ) 

ENTRY  INPUTD! ITR I AL,  ITEM , DAMODE , PR I NT, NOATT , LTATT, NOFAC , 

ATTACK, NITEM, DAMAGE  ) 

ENTRY  I NPUTE ( I TR 1 AL , ARG 1 , E , ITEM , DAMODE , PR I NT , NO ATT , LTATT , NOFAC , 
ATTACK, NITEM, DAMAGE, ARG2  ) 

CALL  I NHEAP ( ATTACK ( 1,1), LTATT , 1 , NOATT . FE . LE , ATTIME ) 
SUBROUTINE  WRAPUP(  AVGTSK ,  AVGREP,  ICARGO  ) 

CALL  ICI1ECK 

CALL  COMPRT (  ICARGO  ) 

CALL  AVGTME (  AVGTSK (1,1),  AVGREP (1,1)  ) 

CALL  RREQTS 
SUBROUTINE  ICHECK 

CALL  CKRQT2 (NOPART , NTYPE , JOBCON , MNTLMT .TEST) 

CALL  ZSPLIT(  0  ) 

CALL  CKNET(  AC,  TASK,  PART,  PTASK,  NR,  LEVEL,  VERIFY,  FLAG  ) 
CALL  CKDAM ( AC , TASK , PART , PTASK , NR , LEVEL , VERIFY , FLAG , BATTLE ) 
CALL  CKRQMT 

CALL  PSHORT ( A I D 1 , A I D 1 , SHORT , RANDM ) 

CALL  IHELPC 

CALL  HELPCK (N , TASK , SHOP , PEOP , 1 .CLASS ) 

SUBROUTINE  HELPCK (N , ITEM , SHOP , PEOP .TYPE .CLASS) 

ENTRY  IHELPC 
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SUBROUTINE  INLIST 

CALL  HEADER 

CALL  LIST1 (NOTSK,HTH(M) ,R(M) , NAME ( 1 , M ) .NAME (2, M) ,TSKRQT( 1 , 1 ) ,0) 

CALL  LI ST2 (NOPEOP , HTH ( M ) , R (M ) , NAME ( 1 , M ) , NAME ( 2 , M ) , PEOPLE ( 1 , 1 , 1 ) , BMAX ) 
CALL  LI ST3 ( 20 . MAXM . MAXT . NAME ( 1 , M ) , NAME (2 ,M) , ACMDTA (1,1,1)) 

CALL  L I ST4 ( NOB  I LD , HTH ( M ) ,R(M) .NAME(l.M) , NAME ( 2 , M ) ,MUNRQT( 1 , 1 ) . 0) 

CALL  LISTS (NOFA,HTH(M) ,R(M) ,NAME( 1 ,M) .NAME (2 ,M) .FACLTY ( 1 , 1 , 1 ) , BMAX) 
SUBROUTINE  HEADER 

CALL  DATIME(3,LOC) 

SUBROUTINE  INITIZ 

CALL  TIMOF(TIMEU) 

SUBROUTINE  ZSHOPS 

CALL  SHPRQCND,  NT,  Nl,  TASK  ) 

CALL  ZTASK ( SHOPS (1,1, BASE ) . PEOPLE (1.1, BASE ) . PARTS (1,1,1), 

AGESTK( 1,1, BASE).  MUNSTK( 1 . 1 .BASE) ,  TRAP( 1 .BASE) , 

NT,  TASK,  RTASK ,  START,  WHEN  ) 

CALL  ZADMIN(UNIT. RTASK , BASE . BASE .NUM) 

CALL  ZREPt SHOPS (1 ,1, BASE) .PEOPLE (1,3, BASE) ,AGESTK(1 ,2 .BASE) , 

PARTS (1,1,1),  UNIT,  BASE,  OBASE ,  WHEN  ) 

SUBROUTINE  TESTER(I , J,D,NAC,AP. ICARGO  ) 

CALL  INPUTA( I , J , D( 1 ) ,NAC , AP( 1 ) , ICARGO  ) 

CALL  INPUTB(I,J,D(1)) 

SUBROUTINE  MODIFY  (  NF ,  NEXT  ) 

CALL  OUTHEP(  CHANGE(l.l),  NCHG ,  0,  NEV ,  FEV,  LEV,  NF,  TIME  ) 

ENTRY  NEW’VAL  (  DDD  ) 

CALL  INHEAP(  CHANGE(l.l),  NCHG,  0,  NEV,  FEV,  LEV,  TIME  ) 

CALL  MODHEP(PERIOD( 1,1), 20 ,N20 ,N14 , ADD) 

ENTRY  ZVALUE 

SUBROUTINE  CKNET (AC ,  TASK,  PART,  PTASK,  NR,  LEVEL,  VERIFY, FLAG) 

ENTRY  CKDAM ( AC , TASK , PART , PTASK , NR , LEVEL , VERIFY .FLAG , ARG 1  ) 

CALL  CKRQT(  AC,  ARG1 .  TASK.  PTASK.  RQMNT ,  TOTIME,  BATTLE,  NSPLIT) 

IF  (TSKRQT(TASK, 15)  . NE .  0)  CALL  CKSPLT(TASK ,  NSPLIT) 

SUBROUTINE  CKRQT (  ACTYPE,  PART,  TASK,  PTASK,  RQMNT,  TOTIME, 

BATTLE,  NSPLIT  ) 

CALL  TEMPRQ ( PART , ACTYPE .NSPLIT , PROB ) 

ENTRY  CKRQMT 

ENTRY  CKRQT2 (  ARG2 ,  ARG3 ,  ARG4 ,  ARG5 ,  ARG6  ) 

SUBROUTINE  CKSPLT(TASK ,  NSPLIT  ) 

ENTRY  TEMPRQ (ARG 1 ,  ARG2 ,  NSPLIT,  PROB) 

ENTRY  ZSPL IT (SWITCH) 

SUBROUTINE  ZNOR 

CALL  CKNET (AC,  TASK.  NPART ,  PROB,  NR,  LEVEL.  VERIFY,  FLAG  ) 

CALL  STTASK (NF ,  TASK,  TYPE,  B) 

CALL  RPTNOR(PART,  CRIT,  NF ,  B) 
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TAB  C 


SUBROUTINE  COMPRT  (  ICARGO  ) 

CALL  I PARTS (  ICARGO  ) 

CALL  TT I ME ( PT , UNCER , PA , NO , NO , NO , N5 ) 

SUBROUTINE  IPARTS( ICARGO  ) 

CALL  CKNET (  AC,  TASK,  PART,  PTASK,  NR,  LEVEL, VERIFY ,  FLAG  ) 

CALL  CKNRTS (  TBASE ,  PART,  POST,  WOST,  CBRT,  CWBRT ,  CPOST,  CWOST, 
REM1 ,  CDMN,  PFLAG ,  SFLAG,  CIRF,  ONRTS ,  CNRTS ,  NRTS2 , 

Tl,  T4 ,  TRP,  TRW,  ONBASE,  INCIRF  ) 

CALL  PSHORT(NS ,  TS ,  SHORT( ITEM) ,  RANDM  ) 

CALL  IPART2  (  CIRF,  ICARGO,  ZAP  ) 

SUBROUTINE  1PART2(  CIRF,  ICARGO,  ZAP  ) 

SUBROUTINE  CKNRTS ( BASE . PART , POST , WOST , CBRT , CWBRT , CPOST , CWOST , 

REM1 ,  CDMN,  PFLAG.  SFLAG,  CIRF,  ONRTS,  CNRTS,  NRTS2 , 

Tl,  T4 ,  TRP,  TRW,  ATBASE ,  ATCIRF  ) 

SUBROUTINE  RREQTS 

IF  (SHOP  .EQ.  26)  CALL  REQTS3(  ACTYPE ,MMAXM  ) 

CALL  REQTSl(PROB,CRIT(l) , TASK, PART, BASE, ACTYPE, MMAXM  ) 

CALL  3KNETC  ACTYPE,  TASK,  PART,  PTASK,  NR.  LEVEL,  VERIFY,  FLAG) 
CALL  REQTS2(  PROB,  PART,  TASK,  CRIT(l)  ) 

SUBROUTINE  REQTS 1 ( PROB , CRIT , TASK , PART , ARG 1 , ARG2 , ARG3) 

ENTRY  REQTS2  (PROB,  PART,  TASK,  CRIT  ) 

ENTRY  REQTS3  (  ARG2 ,  ARG3  ) 

SUBROUTINE  OUTPUT 

IF  (VBREAK  .EQ.  1)  CALL  BREAK 
CALL  T1MOF (TIMEU) 

CALL  JOBLSTf  RECORD ( 1 ,1,1),  MMAXRC ,  NNSCRL  ) 

IF  (AID  .EQ.  0)  CALL  DELAY 2 
CALL  DELAY  1 
SUBROUTINE  ASSETS 
SUBROUTINE  ASSET2(BASE) 

SUBROUTINE  TIMES 

ENTRY  DOT 1ME (KIND ,  SHOP,  BASE,  TIME) 

ENTRY  WAITS (AI D ,  BASE,  TIME) 

SUBROUTINE  DELAYS 
ENTRY  DELAY1 

CALL  WAITS (WAITSK(NF, 10),  BASE,  TIME) 

ENTRY  DELAY 2 

CALL  ASSET2 (BASE) 

SUBROUTINE  PSHORT(N,  T,  SHORT,  RANDM  ) 

SUBROUTINE  JOBLST(  RECORD,  MMAXRC,  NNSCRL  ) 

SUBROUTINE  DEFERS 
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SUBROUTINE  R  HAD  FT 
ENTRY  DAYONE 

CALI,  INSORT(TIME) 

ENTRY  SCHFLT 

CALL  INSORT(TIME) 

IF  (SELECT  .GT.  0)  CALL  FRAG(S1NGLE .DOFRAG .DUMMY) 

ENTRY  SORTIE (  ARG 1 ,  DATA,  ARG2  ) 

CALL  lNSORT(TIME) 

CALL  FRAG ( N ,  DOFRAG.  BASE) 

CALL  MODHEP ( PERI OD ( 1 , 1 ) , 1 5 , NE , MC , SUB ) 

SUBROUTINE  FRAG (SINGLE,  DOFRAG,  BASE) 

CALL  OUTSRT(NF) 

CALL  INSORT (TIME) 

SUBROUTINE  PLAN 

CALL  FERRY (  NF.  BASE.  NXBASE,  PIT, AC  ) 

CALL  PLAN  1  (SUPPLY (1  ,MISS,ACTYPF,  I  , NF.ALRT2  , AI.RT4, 

BASE  ,  ACTYPE  ,MI  SS  ,  SORDEF  ( 1  ,  1  ,MI  SS  ,  ACTYPE  ,  BASF, ) ) 

CALL  RF.ASSG 

CALL  INIDEF(NF,WORKTM, BASE, FLAG) 

SUBROUT I NE  PLAN  1 (SUPPLY , NF , ALERT 1 , ALERT2 , BASE , ACTYPE , M I SS , SORDEF ) 
SUBROUTINE  BASCAP 

CALL  FERRY (  NF,  BASE,  NNEXT ,  PFLAG  ) 

SUBROUTINE  REASSG 

CALL  ENDALTf  NA,  ACTYPE,  BASE.  NO.  NO) 

CALL  REMTSK ( NF , NP , 2 , TASK , BASE ) 

CALL  STTASKINF.NTASK, 1 .BASE) 

IF  ((FLAG  .  F,Q.  6)  .AND.  (ACN(NF,7)  .NE.  0))  CALL  STARTM(NF) 
CALL  REARM (NF.N27, BASE) 

CALL  I  NIIF.AP  ( RF.SUPP  (1,3)  .  I.LGQ .  0  .  NEC  .  FEG  .  LEG  ,  ARR  I VE ) 

SUBROUTINE  FLYERS 

ENTRY  GETPLT(ARG 1 ,  ARG2  ,  TEMP) 

ENTRY  SAVPLTlARGl ,  ARG 2 ,  TEMP) 

ENTRY  FLY AC (  NAC ,  ARG1  ,  TIME.  ARG2 ,  ARG3 ) 

ENTRY  LANDACl NAC ,  LOST.  ARG 1 ,  NB  ) 

ENTRY  RELIEF 

SUBROUTINE  1)1  SABI, (PCTLOS,  B) 

IF  (REFILLO, CLASS). GE.  100)  CALL  ORDER (B, CLASS, A, N) 

SUBROUTINE  FLIGHT 

CALL  GETPLT( ACTYPE , BASE .CREW) 

CALL  SAVPLT ( ACTYPF. ,  BASE  .CREW) 

CALL  OUTSRT ( FLT) 

CALL  LAUNCH ( FLT , M , ML , PRY , PRTY , NTPY . ACA ( 1 .MISS .ACTYPE , BASE ) , 

ALERT ( 1 .MISS, ACTYPE, BASE) ,SPARE( 1 ,M 1 SS .ACTYPE , BASE ) . 
MISS, ACTYPE. BASE) 

IF  (AIDALTt  ACTYPF.)  .  EQ .  1)  CALL  F.NDAI,T(  NA  ,  ACTYPE  ,  BASF. ,  NO  ,  NO ) 
CALI,  CKALRT( NS .ACTYPE  ,  BASE ,  START) 

I  F  <  A  I  DALT(  ACTYPE  I  .  F.() .  I  iCAL  1)0  A  LET 
SUBROUTINE.  LAUNCH! FLT. M, ML, PRY, PRTY. NTPY, ACA, ALERT. SPARE. 

MISS. ACTYPE, BASE  ) 

II  i  AIDALTl  ACTYPE)  .  EQ  .  1)  CALL  ENDAl.Tt  NA  ,  ACTYPE  .  BASE  ,  NO  ,  NO  ) 
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CALL  INHEAP(ACN(1 , 18), MAXACN , 1 , NKH ,NA , 0 ,TI MOUT) 
ENTRY  ELY ( NA , PRTY .MISS. ACTYPE . BASE , SPARE ) 

CALL  ENDALTCNA,  ACTYPE.  BASE,  NO,  NO  ) 

CALL  TT1ME(TIM, TD, TIME, NO, NO, NO, NO) 

CALL  ELYAC(NA, CREW, TIME, ACTYPE, BASE  ) 

CALL  I NHEAP(ACN( 1 , 18) .MAXACN, 1 , NEH , N A , NO , T I  ME ) 
SUBROITINE  SORT 

ENTRY  INSORT (TIME) 

ENTRY  OCTSRT(ELT) 


SUBROUTINE  PSTI'ET ( NAC , COMBAT , D I  VERT , TRANS , RE  FLAG , HURT ) 

CALL  'IT  I  ME  (  LDF.LAY  .  TD , T ,  NO  ,  NO  ,  NO  ,  NO ) 

CALL  INHEAPl ACN( 1 , 18),MAXACN, 1 ,NEH .NAC . NO ,T) 

CALL  CKCR IT (NTASK  , CKl’AKT .  DOUEF  , NOWRQ1) ,  MMAX  . SUM  ,  BASE  ) 

CALL  REMTSK (  NAC,  NP,  2,  NTASK ,  BASE ) 

CALL  CKCK 1 T( NTASK , CKPART . NO , NO , MMAX .SUM , BASE ) 

CALL  SHPRQt  NP,  NAC,  ACTYPE,  TRANS,  ITEM  ) 

CALL  SHPKQTINAC, NRN, SHOP, ACTYPE, TRANS, TSKP, TASK. NIJ) 

CALL  SCH.IOIKNAC.  ACTYPE,  BASE,  BT.NJOR,  TASKS)  1  1  ,TCR  IT  l  1  )  ,Bl)(  1,1)  t 
CALL  STEASK  (.NAC,  BLHNNN  ,  1  )  ,  2,  BASE) 

CALL  ST'l'ASK (.NAC,  TASK,  1,  BASE) 

CALL  REMTSK ( NAC . NP , 2 .TASK . BASE ) 

CALL  STTASK ( NAC . NTASK , 1 , BASE ) 

CALL  INHEAP (RESUPP (1,3), LLGQ , 0 , NEC , PEG , LEG , ARR S VE ) 

SUBROUTINE  RUNAC(NP) 

CALL  DOT I  ME ( I ,  SHOP,  BASE,  TSKTME) 

CALL  ENDTSK (NP , SHOP , SHOPS ( 1 , SHOP , BASE ) , PEOPLE (1,1, BASE ) , 

AGESTK (1,2, BASE ) , NAC . BASE  ) 

CALL  CHECK (NO , NO , NO , PLOP , NO , BASE , BFLAG ) 

ENTRY  RUNAC2 (  ARG 1 ,  ARG2  ) 

CALL  PREFLT (TSK , NAC ) 

CALL  JO  IN  (TASK  ,  NAC  .NOTYF.T) 

CALL  CKROOT (TASK , NAC ,CANCL) 

CALL  SPLIT (NAC,  TASK,  JOINT,  SKIP) 

CALL  NEWTS K (SHOPS ( 1 , 1  ,  P  ,JE ) , PEOPLE : 1 , 1 , BASE) , PARTS ( 1 , 1,1), 
AGESTK  (1,1,  BASE ) ,  Ml’NSTK  ( 1,1,  BASE )  .  TRAP  ( 1 ,  BASE )  , 

NAC,  TASK,  RTASK ,  START,  BEGUN  ) 

CALL  SPLIT ( NAC ,  TASK,  JOINT,  SKIP  ) 

CALL  DOWTSK ( SHOPS ( 1  , 1 , BASE ) , PEOPLE ( 1 , 1 , BASE ) , PARTS (1,1.1). 

AGESTK  (1  , 1  .BASE)  ,MUNSTK(1  , 1 ,  BASE)  ,TRAP(1  .BASF.)  ,NF,  START) 
CALL  INVPRE (NAC .SHOP , BASE ,NF) 

IF  (TASK. EQ. 30029 j  CALL  INWPRE (NAC , SHOP , BASE ,NF) 

CALL  DOWPRE (NAC. TASK) 

CALL  INWPRE (NAC. N26, BASE, NF) 

CALL  REMTSK (NAC , ACN(NAC , 7 ) , 1 ,N0,N0) 

CALL  INHEAP(RF,SUPP(1 ,3) ,  LLGQ  ,  0  ,N'EG  ,  FEG  ,  LEG,  ARRIVE) 

CALL  ENDAC( NAC, ACTYPE, BASE, 2) 

CALL  DISABL(NN1 ,  BASE) 

CALL  FERRY (  NAC,  BASE,  NXBASE ,  PFLAG) 

CALL  INIDEF (NAC .WORKTM , BASE , SFLAG) 

CALL  PRFLT( TASK, NAC) 

CALL  TTIME (TIME ,TD .DELAY , NO , NO ,N0 ,N0) 

CALL  INHEAP (ACN ( 1 , 18) .MAXACN, 1 ,NEH , NAC , NO .DELAY) 

ENTRY  STARTMC  ARG 1  ) 

CALL  REMTSK (NAC ,NT, 1 ,N0 ,N0) 

CALL  GOHOME  (  NAC,  BASE  ) 

CALL  PRFLT ''TASK, NAC) 

CALL  NEWTSK ( SHOPS (1 , 1 , B ASE ) , PEOPLE (1,1, BASE ) , PARTS (1,1,1), 
AGESTK (1,1, BASE),  MUNSTK( 1 . 1 , BASE) ,  TRAP( 1 .BASE) , 
NAC,  TASK,  RTASK,  START,  BEGUN  ) 


SUBROUTINE  INITSK 

ENTRY  ZTASK( SHOPS , PEOPLE , PARTS .AGESTK .MUNSTK, TRAP , 

ARC  1 ,  ARG2 ,  ARG3 ,  START,  BEGUN  ) 

ENTRY  NEWTSK (SHOPS , PEOPLE , PARTS .AGESTK .MUNSTK .TRAP , 

ARG1 ,  ARG2 ,  ARG3 ,  START,  BEGUN  ) 

ENTRY  RETASK (SHOPS , PEOPLE . AGESTK , ARG4 , START  ) 

ENTRY  DOWTSK ( SHOPS , PEOPLE , PARTS , AGESTK , MUNSTK , TRAP , ARG4 , START) 

CALL  1 NGOMP (INC,  ACN  ( NAG  , 9 ,  ACN  (NAC  ,  5  )  .  NWA  IT) 

CALL  CKAGE  (  NAC  ,  SQL ,  ACTYPE  ,  AGESTK  ( 1  ,2)  ,  AGE,  AGE  1  ,  AGE2  , 

Al,  A2 ,  K,  WHY,  AVAIL  ) 

CALL  GETPEOl  BASE,  NAC.  SQD.  TASK,  N’ALT,  ENOUGH,  ME  LAG ,  PFLAG,  VAITT, 

WHY , SHOPS ( 1 , SHOP) , PEOPLE (1,3), AGESTK ( 1 , 2 ) , PEO  ( 1 ) , PEOP ( 1 ) , 

NUM( 1 ) ,XPEO(l) .XPEOP(l) ,XNUM(1 )  ) 

CALL  GANN 1 B ( NAC , NTASK , PART .  CFLAG) 

CALL  RPTNOR ( PART . CR IT . NAC , BASE ) 

IF  UTAID.EQ.2) .OR. (TAID.GE.4) )CALL  REDNOR ( PART , NAC , BASE , NO , NO ) 
CALI,  TT I  ME (T I M , TO , MTI ME , HURRY  1 ,REDUC1 .SAVE! .NO) 

CALL  USE AGE (NAC  ,  AGESTK,  AGE  1 ,  AGE 2 ,  Al ,  A2 ,  K  ) 

CALL  ADOTK ( SHOPS ( 1 , SHOP ) , NAC , NTASK , RTASK , NALT , PEO ( 1 ) , AGE , 

ENDTME ,  WHEN,  XPEO(l)  ) 

CALL  ACW A IT ( SHOPS ( 1 , SHOP ) , NO , NTASK , N AC , PART , NO , NO , NO , 

WHY, WHEN, NOW, RTASK  ) 

CALL  OUT I NT (SHOPS (5, SHOP) ,SHOPS(3, SHOP) , SHOPS (4 , SHOP) ,TASKP) 

CALL  OlTWAT( SHOPS ( 8 , SHOP) , SHOPS ( n , SHOP ) , SHOPS ( 7 , SHOP) , TASK? ) 

CALL  WAITS (WHY,  BASE,  DELAY) 

CALL  ORDER ( DESTIN . C LASS , PART , N 1 ) 

CALL  ADM  INI ( PART, TASK , BASE , BASE ,AVPT) 

CALL  SHPKES (NO.- PART , N 1 , BASE . NX BASE . BASK i 
SUBROUTINE  DOTASK 

ENTRY  ADDTSKI. SHOPS,  ARG 1  ,  TASK,  RTASK,  NALT,  PKOKES,  AGERES, 

TME,  WHEN , YXPEO  ) 

ENTRY  ADDTK (SHOPS,  ARC  1  ,  TASK,  RTASK,  NALT,  TEAMS,  AGERES, 

TME,  WHEN,  XTKAMS  ) 

CALL  INHEAP(TASKQ(1 ,4 ) , LLTQ, 0 , NET, FLT, LET, TIME) 

ENTRY  STPTSK (SHOPS , PEOPLE , AGESTK , IT , CFLAG ) 

CALL  1 N I  NT  1  SHOPS ( 5 ) , SHOPS ( 3 ) , SHOPS ( 4 ) , T I  ME , NLK I ) 

CALL  EXHEAP (TASKQ( 1,4) , LLTQ, 0, NET, FET, LET, IT) 

CALL  KTNAGE ( NAC ,  SQD ,  TYPE ,  AGESTK ( 1 ) ,  AGE  ) 

SUBROUTINE  ENDTSK  ( N'P ,  SHOP  ,  SHOPS  ,  PEOPLE  ,  AGESTK  ,  NAC  ,  BASE ) 

CALL  OUTIIEP (TASKQ (1,4), LLTQ, 0. NET, FET, LET, NP, TIME) 

CALL  RTNAGE (NAC ,  SQD,  TYPE,  AGESTK ( 1 ) ,  AGE) 

CALL  DOWPRE( NAC, TASK) 

CALL  CHECK! NO,  NO,  NO,  PE0P1,  NO,  BASE,  NO) 

SUBROUTINE  CHKWX 

CALL  IN  IDE F (NF  ,  MAXTWX,  BASE,  SFLAG) 

SUBROUTINE  INIDEF  (NAC, WOKKTM, BASE, SFLAG) 

CALL  NEWTSK ( SHOPS (1  , 1  ,  BASE)  ,  PEOPLE  ( 1  , 1  .BASF.)  .PARTS  ( 1  ,1,1), 

AGESTK (1,1, BASE),  MUNSTK ( 1 , 1 , BASE) ,  TRAP( 1 .BASE) , 

NAC,  NTASK,  RTASK,  START,  BEGUN  ) 

CALL  REMTSK ( NAC . DT , 2 , TASK , BASE ) 

SUBROUTINE  CANNI B (NAC . RTASK , PART, CFLAG) 

CALL  STTASK (NA ,  AID.  2,  BASE) 
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CALL  RPTNOR ( PART , CR IT , NA , BASK ) 

SUBROUTINE  1NC0MP( INC , 1TP , 1WP .NWAIT) 

SUBROUTINE  CKCR IT (TASK , CKPART , DOUEF , NOWRQI) , MMAX , SUM , BASE ) 

SUBROUTINE  CKROOT(TASK ,  NAC,  CANCEL) 

SUBROUTI NE  SCH JOB ( NAC , ACTYPE , BASE , BT , NJOB . TASKS , TCRIT, BI) ) 

CALL  REMTSK (NAC ,  NP,  1,  NO,  NO) 

CALL  ST1'ASK(NAC,  TASK,  1,  BASE  ) 

SUBROUTINE  SPLIT (NAC .TASK .JOINT, SKIP) 

ENTRY  JOIN(TASK ,  NAC,  NOTYET) 

SUBROUTINE  GETPEO(  BASE,  NAC,  SQD ,  TASK,  NALT,  ENOUGH,  MFLAG, 

PFLAG ,  WAITT,  WHY,  SHOPS,  PEOPLE,  AGESTK , 

PEO,  PEOP,  NUM,  XPEO ,  XPEOP,  XNUM  ) 

CALL  CKPEOPC  BASE,  KIND,  PEO(I),  PEOP(l),  NUM(l),  XPEO(I), 

XPEOP ( 1 ) ,  XNUM Cl),  AVPEO(I),  PFLAG,  SFLAG(I),  PEOPLE(I),  SQD) 
CALL  STPREP ( SHOPS ( 1 ) , PEOPLE (1 ) , AGESTK (I ) , NR , BASE ) 

CALL  STPTSK (SHOPS(I),  PEOPLE(l),  AGESTK ( I ) ,  NR,  CFLAG  ) 
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TAB  F 

SUBROUTINE  PR F. FLT ( TAS K  , N AC ) 

CALL  DOWPRF.  ( NAC , TASK ) 

ENTRY  PRFl.Tf  TASK.  NAC) 

CALL  ASS  1  UN ( NAC ,  ACA( 1 , 1 , ACTYPK , BASE ) , ALERT ( 1 , 1 , ACTYPE , BASE ) , 

P'I7. (  1 ,  ACTYPE  ,  BASE )  .SPAKE (1,1,  ACTYPE  ,  BASE  )  , 

SORDEF ( 1.1,1 .ACTYPE . BASE) ,  MISS) 

CALL  INCOMPCNP,  ACN(NAC,9),  ACN(NAC,5),  NWA IT) 

CALL  TT 1  ME  (T 1  ME  , Tl)  ,T ,  NO  ,  NO  ,  NO  ,  NO ) 

CALL  TNHEAP(ACN(1 .18) .MAXACN. 1 .NEII  ,NAC , 0 ,T) 

ENTRY  REARM  (NAC,  TASK,  BASE) 

CALL  RECNFC (NAC, SHOPS ( 1 , 1 .BASE) , PEOPLE ( 1 ,3, BASE) , 

AGESTK (1,2, BASE ) , MUNSTK (1,1, BASE ) , TRAP ( 1 , B ASE ) , WHEN , WH Y ) 
CALL  UPLOAD (NAC, SHOPS! 1 .28. RASE) . PEOPLE (1 . 3 . BASE ) , 

AGESTK (1,2, BASE ) , WHEN , WHY ) 

CALL  REFUEL! NAC  ,  SHOPS  (1,29,  BASE1 ,  PEOPLE  (  1  ,3, BASE)  . 

AGF.STK ( 1  ,  2  ,  BASE ) ,  POLSTK (  BASE )  , NT, WHEN  .WHY) 

CALL  ACWAIT( SHOPS ( 1 , SHOP, BASE) .FLAG  1 .TASK , NAC ,FLAG2 , 

AGE. PEO, TIME, WHY, NOW, NOW, NO) 

SUBROUTINE  ASS IGN(NAC ,ACA .ALERT, PTZ , SPARE , SORDEF ,  MISS) 

CALL  CKALRT (  NAC,  ACTYPE,  BASE,  START  ) 

CALL  DOALRT 

SUBROUTINE  RECNFG (NAC .SHOPS , PEOPLE .AGESTK .MUNSTK .TRAP, WHEN .WHY) 

CALL  CKPEOP(BASE ,  KINDI,  AID2,  PEOP1,  NPEOl ,  XPEOl ,  XPEOP1,  XNUM1, 
AVPEOl ,  PFLAG1 ,  SFLAG,  PEOPLE ( 1 ), SQD  ) 

CALL  CKAGF (NAC ,  SQD,  TYPE,  AGESTK ( 1 ) ,  AID),  EQP1 ,  EQP2 , 

Al,  A2 ,  Kl,  WHY,  AVAIL) 

CALL  USEAGE (NAC ,  AGESTK,  EQP1,  EQP2 ,  Al  ,  A2 ,  Kl  ) 

CALL  TTIMF.  (TIM,  TD ,  UP1,  HURRY2,  REDUC2 ,  SAVE  2 ,  NO  ) 

CALL  ADDTSK!  SHOPS! 1 . 27) .  NAC,  N30027,  NO .NO , AID2 ,AID1 , 

T 1  ME  1 ,  WHEN,  XPEOl  ) 

SUBROUTINE  UPLOAD  (NAC,  SHOPS , PEOPLE , AGESTK ,  WHEN, WHY  ) 

CALL  TT 1  ME ( T I ME , TD , T 1 , HURRY 2 , REDUCE , SAVE 2 , NO ) 

CALL  CKPEOP ( BASE ,  KINDI,  AID2 .PEOP1 , NPEOl ,  XPEOl,  XPE0P1 .XNUM1 , 
AVPEOl,  PFLAG1 ,  SFLAG,  PEOPLE(l),  SQD  ) 

CALL  CKAGE (NAC ,  SQD,  TYPE,  AGESTK ( 1 ) ,  AID1,  EQP1,  EQP2 , 

Al,  A2 ,  Kl,  WHY,  AVAIL  ) 

CALL  ADDTSK( SHOPS ( 1 ) ,  NAC,  N30028 , NO , NO ,AID2 ,AID1 ,T1 .WHEN , XPEOl ) 
CALL  USEAGE (NAC ,  AGESTK,  EQP1,  EQP2 ,  Al ,  A2 ,  Kl  ) 

CALL  TTIME(TIME,TD,T2, HURRY 2 , REDUC2 , S AVE2 , NO ) 

SUBROUTINE  REFUEL(NAC , SHOPS , PEOPLE .AGESTK , POLSTK , NT, WHEN, WHY) 

CALL  CKAGE (NAC,  SQD,  ACTYPE,  AGESTK(l) ,  AGE,  AGE1 ,  AGE2 , 

Al,  A2 ,  K,  WHY,  AVAIL  ) 

CALL  USEAGE (NAC,  AGESTK,  AGE1 ,  AGE 2 ,  Al ,  A2 ,  K  ) 

CALL  TTIME (TIME , TD , T , HURRY2 , REDUC2 , SAVE 2 , NO ) 

CALL  ADDTSK ( SHOPS ( 1 ) , NAC , N30029 , NO , NO , PEO , AGE , TI ME , WHEN , NO ) 
SUBROUTINE  DOWPRE(  ARG1 ,  ARG2  ) 

ENTRY  DOWPF(  ARG3 ,  ARG4  ) 

CALL  RECNFG (NA, SHOPS (1 ,1 .BASE) .PEOPLE (1 ,3, BASE) , 

AGESTK ( 1 , 2 , B ASE ) , MUNSTK ( 1 , 1 , B ASE ) , TRAP ( 1 .  B ASE ) , WHEN , WHY ) 
CALL  CKPEOP (  BASE,  KIND,  PEOl ,PEOPl ,NUM1 ,  XPEO,XPEOP,XNUM, 
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AVPEO  ,  PFLAG ,  SFLAG  ,  PEOPLE  ( 1 , 3  ,  BASK  )  ,  SQI)  ) 

CALL  CKAGEtNA,  SQD ,  TYPE,  AGESTK( 1 ,2 .BASE) ,  AGE  1 ,  AGE 3  ,  AGK4, 
A3,  A4 ,  K,  WHY,  AVAIL  ) 

CALL  ADDTSK ( SHOPS (1 .SHOP, BASE) ,NA,N 3002 7, NO, NO, PEG 1 , AGE  1 , 
TIME,  WHEN,  XPEO  ) 

CALL  USEAGE ( NA ,  AGESTK ,  AGE3 ,  AGE4 ,  A3,  A4 ,  K  ) 

CALL  UPLOAD (NA , SHOPS ( 1 , SHOP , BASE ) , PEOPLE (1,3, BASE) , 

AGESTK (1,2, BASE).  WHEN.  WHY  ) 

ENTRY  INWPRE  (  ARG 1 ,  ARG2  ,  ARG3  ,  ARG4  ) 

CALL  INCOMP(NI ,  ACN(NA,9),  ACN(NA,5),  NWAIT) 

CALF,  TTIME  (TIME  ,TD  ,T.NO  ,  NO  ,N0  ,  NO ) 

CALL  IN1IEAP(ACN(  1  , 18), MAXACN  ,  1 , NEH  ,  N A ,  0  , T ) 

CALL  REFUEL(NA .SHOPS (1,29, BASE ) , PEOPLE (1,3, BASE ) , 

AGESTK (1,2, BASE ) .  POLSTK ( BASE ) ,  NT,  WHEN.  WHY  ) 

CALL  WAITS(WAITSK(NP . 10) ,  BASE.  TIME) 

CALL  PRFLT ( NXTASK , NA ) 

SUBROUTINE  MUNEED 

CALL  CKB I LD (DEMAND ( 1,1, 1,1),  PRY (1,1),  MAXW'TI  1  ) ,  B) 

CALL  DOBILD (AMMO, BUSY, N10,MAXWT(1) ,B) 

SUBROUTINE  CKB I LD( DEMAND,  PRY,  MAXWT ,  B) 

CALL  DOBILD (AMMO, BUSY (AMMO) ,T, MAXWT ( 1 ) ,B) 

SUBROUTINE  DOB  I LD( ARG 1 ,ARG2 ,ARG3 , MAXWT , BASE ) 

ENTRY  DOWBLIH BASE, FLAG) 

CALL  TT I ME (T I M , TD , T I ME , HURRY4 , REDUC4 , SAVE4 , NO ) 

CALL  CKPEOP (  BASE,  KIND,  PEO , PEOP ,NUMP ,  XPEO,XPEOP,XNUM, 

AVPEO ,  NO,  SFLAG,  PEOPLE ( 1 , 3 , BASE ) ,  NO  ) 

CALL  I NHEAP ( BU I LDQ  (1,2),  LLBQ ,  0 , NEB ,  FEB ,  LEB ,  EN’DTME ) 

CALL  WAITS ( WHY , BACK LG (5 , JOBP ) .TIME) 

ENTRY  ENDBLD(NP,BASE) 

CALL  OUTHEP (BUI LDQ( 1 ,2), LLBQ , 0 , NEB , FEB , LEB , PO .TIME ) 

CALL  ADM  IN  I (UNIT,  NO,  BASE.  BASE.  NO) 

CALL  DOTIME ( 2 , SHOP , BASE .TIME) 

ENTRY  STPBLD (NP , BASE ) 

CALL  EXHEAP (BUI LDQ ( 1 ,2) , LLBQ , 0 ,NEB , FEB , LEB ,NP) 

SUBROUTINE  CKPEOP  (  BASE.  KIND,  PEO,  PEOP,  NUM, 

XPEO,  XPEOP ,  XNUM ,  AVPEO,  PFLAG,  SFLAG,  PEOPLE.  SQD 
SUBROUTINE  CKAGE(NAC ,  SQD,  ACTYPE,  AGESTK,  AGE,  ARG1 ,  ARG2 , 

AI,  A2 ,  K,  WHY,  AVAIL  ) 

ENTRY  USEAGE (NAC,  AGESTK,  ARG1 ,  ARG2 ,  Al,  A2 ,  K) 

ENTRY  RTNAGE (NAC ,  SQD,  TYPE,  AGESTK,  AGE  ) 

CALL  ADMINKUNIT,  NO,  BASE,  BASE,  NO) 

SUBROUTINE  ADDAGE  (  AGE,  ADD,  BASE) 

SUBROUTINE  CKALRT(  NAC,  ACTYPE,  ARG1 ,  ARG2  ) 

ENTRY  DOALRT 

ENTRY  ENDALT(  NAC,  ACTYPE,  ARG1 ,  PEOLOS ,  AGELOS) 

CALL  CHECK (NO,  NO,  NO,  PEOP,  NO,  BASE,  NO) 

IF  (RF.FILL(1 ,2)  .GE.  100)  CALL  ORDER  ( BASE  ,N2  ,  AGE  1  ,N1 ) 
CALL  ADMINKUNIT,  NO,  BASE,  BASE,  NO) 

SUBROUTINE  RELAITI  BASE,  MOD  ) 

CALL  ENDALTINF,  I,  BASE,  NO,  NO  ) 
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TAB  G 

SUBROUTINE  ADMIN 

ENTRY  ZADMINC  ARC  1 ,  ARG2 ,  ARG3 ,  ARG4 ,  ARG5  ) 

ENTRY  ADM  INK  ARG 1 ,  ARG2 ,  ARG3 ,  ARG4 ,  ARG  5  ) 

GAEL  SHPRKS  ( S3  .  -UNIT. N 1  ,  BASE  . MAXB  .  BASE ) 

CALI.  'IT  I  ME  (  DE LY  ,TD  ,T  1  ME , NO ,  NO  ,  NO  ,  NO  ) 

CALL  I NHEAPI LIMBO( 1 ,4 ) .NNLIMB , 0 ,NEX ,FEX . LEX, TIME) 

CALL  NEWREP ( SHOPS (1,1. BASE ) , PEOPLE (1,3, BASE ) , AGESTK (1,2, BASE ) , 
PARTS (1,1,1),  UNIT,  BASE,  OBASE ,  WHEN,  FIXSRU,  AVPT  ) 

ENTRY  ADM  I  NO 

CALL  F1XA1S(  AIS ,  WHEN,  BASE  ) 

CALL  CHECK (NO, NO, NO, NO, AGE, BASE, NO) 

CALL  OUTHEPt LIMBOl 1 ,4) .NNLIMB, O.NEX.FEX, LEX. NF, TIME) 

CALL  NEWREP (SHOPS (1,1, BASE ) . PEOPLE (1,3, BASE ) , AGESTK (1,2, BASE )  , 
PARTS (1,1,1),  UNIT,  BASE,  OBASE,  WHEN,  FIXSRU,  AVPT  ) 
SUBROUTINE  RUNSHP(NP) 

CALL  SEND (PART, BASE, RETAIN) 

CALL  SHPRES(NN, UNIT, N1 , BASE, OBASE, OBASE) 

CALL  ENDREP(NP.  SHOP,  SHOPS  (  1  .SHOP, BASE)  ,PEOPLF,(l ,  1  .BASE)  , 

AGESTK (1,2, BASE),  PART,  BASE  ) 

CALL  DOT I  ME (SET,  SHOP,  BASE,  TIME) 

CALL  CHECK (NO , NO , NO , PEOP , NO , BASE , NO ) 

CALL  CKCIRF(SHOP, REPAIR, BASE) 

SUBROUTINE  INIREP 

ENTRY  ZREP ( SHOPS , PEOPLE , AGESTK , PARTS , ARG 1 , BASE , ARG2 , ARG3) 

ENTRY  NEWREP (SHOPS , PEOPLE , AGESTK , PARTS , ARG1 , BASE , ARG2 , 

ARG3 ,  ARG4 ,  ARG5  ) 

ENTRY  KEREP (SHOPS  ,  PEOPLE  ,  AGESTK  ,  PARTS  ,  ARGt> , BASE ) 

ENTRY  DOWREP (SHOPS , PEOPLE , AGESTK , PARTS , ARGb , BASE ) 

CALL  ADMIN! (FIXSRU , NO , BASE , BASE , AVSRU ) 

CALL  ORDERP(SRU, BASE, FLAG) 

CALL  SALVAG (SRU , LRU , SHOP , BASE , SHOPS (1,1), PARTS ( 1 , 1 , BASE) .FLAG) 
CALL  ORDER (BASE, CLASS, SRU, Nl) 

CALL  CKAIS (BASE, HELP, AGE  1 , AIS .EXTRA , WHY) 

CALL  niME ( TIM ,TD .TIME . HURRY3 . REDUC3 , SAVE3 , NO ) 

CALL  USEAIS 

CALL  ADDREP(SHOrs( 1 .SHOP) .REPAIR ,NALT, LRU , PEO , AGE .ENDTME , 

BASE, OBASE, WHEN) 

CALL  PRTY4( PART, IMPORT) 

CALL  INWAIT(SHOPS(16, SHOP), SH0PS(14, SHOP) ,SHOPS(15, SHOP) , 

TIME,  NLEW  ) 

CALL  PRTY3 (PART, NORS, TIME) 

CALL  OUTI NT (SHOPS ( 13 , SHOP) , SHOPS (11, SHOP) , SHOPS ( 12 , SHOP) ,JOBP) 
CALL  OUTWAT(SHOPS( 16, SHOP) .SHOPS ( 14 .SHOP) .SHOPS! 15 .SHOP) , JOBP) 
CALL  W'AITS (AID ,  BASE,  TIME) 

CALL  SHPRES(N3,  -  ITEM,  Nl  .BASE,  NXBASF.,  BASE) 

SUBROUTINE  DOREP 

ENTRY  ADDREP ( SHOPS  , REPAI R , MALT , LRU  , PF.ORES  ,  AGF.RES  .TIME, 

BASE,  OBASE,  WHEN) 

CALL  INHEAP (REPQ (1,4),  I.LRQ , 0 , NER , FER ,  LER , TIME ) 

ENTRY  STPREP( SHOPS, PEOPLE, AGESTK,  IT  .BASE) 
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CALL  ININT(SHOPS ( 13 )  .SHOPS (11) , SHOPS ( 12)  .TIME .NILE I ) 

CALL  EXHEAP(REPQ(1, A). LLRQ.O, NER.FER.LEK.IT) 

CALL  AISREP(  AIS,  PART,  NO,  -1,  BASE  ) 

SUBROUTINE  ENDREP (NP , SHOP , SHOPS , PEOPLE , AGESTK , PART , BASE ) 

CALL  OUTHEP(REPQ( 1,4), LLRQ , 0 ,NER ,  FER,  LER,  PO,  TIME) 

CALL  AISREP(  AIS,  PART,  NO,  0,  BASE  ) 

CALL  ADMINKUNIT,  NO,  BASE,  BASE,  NO  J 
SUBROUTINE  SALVAG(SRU , LRU , SHOP , BASE . SHOPS , PARTS , FLAG) 

IF  (REFILL(1, CLASS)  . GE.  100)  CALL  ORDER(DESTIN, CLASS , LRU , SI ) 
CALL  OUTWAT( SHOPS ( 16 , SHOP) , SHOPS ( 14 , SHOP) , SHOPS (15, SHOP ) ,NF) 
SUBROUTINE  CKCIRF(SHOP, REPAIR, BASE) 

CALL' REREP (SHOPS (1,1, BASE) ,  PEOPLE (1,3, BASE ) ,  AGESTK (1,2, BASE ) , 
PARTS ( 1 , 1 , 1 ) , NF ,  BASE) 

CALL  PRTY2 ( PART, NORS, DEMAND) 

CALL  PRTY1( PART, NORS, DEMAND) 

CALL  DOWREP (SHOPS (1,1, BASE),  PEOPLE (1,3, BASE ) ,  AGESTK ( 1 , 2 , BASE) , 
PARTS (1,1,1),  NF,  BASE) 

SUBROUTINE  REPRTY 

ENTRY  PRTY1 (PART, NORS, ARG1) 

ENTRY  PRTY2 (PART, NORS. ARG1) 

ENTRY  PRTY3( PART, NORS, TIME) 

ENTRY  PRTY 4(PART,ARG1) 

SUBROUTINE  CKAIS(  ARG1 ,  ARG2 ,  AGE,  ARG1 ,  EXTRA,  WHY) 

ENTRY  USEAIS 

ENTRY  AISREP(  ARG3 ,  ARG2 ,  ARG4 ,  LOST,  ARG1  ) 

CALL  TTIME(  TME,  TD,  TIM,  HURRY ( BASE ,3,2), REDUCE ( B ASE , 3 , 2 ) , 

SAVE (BASE, 3, 2) ,  NO  ) 

CALL  INHEAP ( LIMBO( 1  ,4)  ,  NNLIMB  ,0  ,NEX  ,  FEX ,  LEX  .TIM  ) 

CALL  EXHEAP ( LIMBO ( 1,4) .NNLIMB ,0 ,NEX ,FEX , LEX , I ) 

ENTRY  FIXAISt  ARG3 ,  NT,  ARG1  ) 
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TAB  H 

SUBROUTINE  BOMB (LOG) 

CALI.  LOSSES(AII),  PCTLOS ,  LOST,  NONUNI) 

CALL  I)  I  SABI.  (  PCTLOS  ,  BASE ) 

CALL  A1SRE1’ (A1S,  NO,  STRING.  1.  BASE) 

CALL  LOSSES (  STOCK,  PCTLOS,  LOST,  NONUNI) 

CALL  ORDER (BASE. CLASS. NAGK, TOT) 

CALL  ENDALT(NA,  ACTYPE,  BASE,  PEOI.OS,  AGEl.OS  ) 

CALL  STPTSK ( SHOPS (1 .SHOP, BASE) ,  PEOPLE (1 ,3, BASE) , 

AGESTK (1.2. BASE ) ,  NF ,  STRIP  ) 

CALL  ACWA1TI SHOPS! 1 .SHOP, BASE) ,  NO,  TASK.  NA,  PART,  NO,  NO,  NO, 
NO,  NOW,  NOW,  NO) 

CALL  BENDAC I NA .TYPE , BASE ) 

CALL  STTASKINA .  TASK.  1.  BASE) 

CALL  ENI)AC(NA, TYPE,  BASE,  1) 

CALL  RRORGNI  BASE,  KPART  1 
CALL  ASSF.T2 ( BASK ) 

SUBROUT l NE  REORGN ( BASE , KPART ) 

CALI ,  LOSSES ( AVA I L , PCT , LOST , NONUN  I ) 

CALI,  AISREPt AIS ,  NO,  STRING,  1,  BASE) 

CALL  ORDER (BASE,  N2 ,  AGE,  TOT) 

CALL  P I CK ( BASE , B LDG , FRAC ( 1 ) , PEOLOS , AGELOS , PRTLOS , TEST) 

CALL  STPRF.P  (SHOPS  ( 1  ,  SHOP  ,  BASE)  ,  PEOPLE  (1,3,  BASE)  ,  AGESTK  (1,2,  BASE)  . 
NK,  BASE) 

CALL  MODULI’ (  LIMBO(  1.4)  ,  NNLIMB  ,  NEX,  1  .ADD) 

CALL  EXHEAP ( LI MBO( 1,4) .NNLIMB , 0 , NEX , FEX , LEX ,  I  ) 

CALL  RF.ORG2  (  BASE,  KPART.  FRACil)  ) 

SUBROUTINE  REORG2  (  BASE,  KPART,  FRAC  ) 

CALI,  LOSSES  (STORE,  PRTLOS,  LST,  NONUN  1  ) 

.  U.I,  ORDER  (BASE  .N3  ,  PART,  LOST) 

CALL  PICK ( BASE , BLDG , FRAC ( 1 )  , PEOLOS , AGELOS , PRTLOS , TEST) 

CALL  OUTWAT(  SHOPS ( lo, SHOP,  BASE) ,  SHOPS ( 14 , SHOP  ,  BASF, )  , 

SHOPS (15, SHOP, BASE),  NT  ) 

CALL  OUT 1  NT ( SHOPS (13. SHOP, BASE) .SHOPS (1 1 , SHOP. BASE) , 

SHOPS ( 12, SHOP, BASE) ,  NT  ) 

CALL  STPBLDI NF , BASE ) 

CALL  REDI’EO (XpEOP, SUM, BASE, SHOPS (1 , 1 .BASE) , PEOPLE (1 . 1 .BASE) , 
AGESTK ( 1 , 1 .BASE) ,MATERL( 1 .BASE)  ) 

CALL  ADDAGE ( AGE ,  NO,  BASE) 

IF  ICEWORK  .  F,Q .  1)  CALL  REBI  LD(BASE) 

CALL  SHC I RF( SHOP, BASE)  ‘ 

CALL  SIIPRES  (  N3  ,  -UN  IT ,N  I  ,  BASF. ,  MMAXB  .  BASE  ) 

CALL  OUTHEP (  ATTACK  (1,1),  I.TATT .  1  ,  NOATT ,  FE  .  LE  .  PC)  .TIME  ) 

CALL  lNHEAIU  CKJOBQl 1,7), LTHCQ , 0 , NEC , FEC , LEC , KNDTME ) 

Sl'BkOUT I  XL  PI  CK  i BASE , ARG , FRAC , PEOLOS , AGELOS , PRTLOS , TEST ) 

SUBROUTINE  REBI  I,D (  BASE) 

CALL  I N  1  CON (  BLDG  , TYPE  ,  BASF. , N , START  , WHY ) 

CALL  WAITS (WHY.  BASE.  TIME) 

SUBROUTINE  I N I  CON ( BLDG .  TYPE.  BASE.  N.  START,  WHY  ) 

CALL  INHEAP (CEJOBQl 1 . 7 1 , LTHCQ ,0 .NEC ,FFX  , LEC , ENDTME) 

CALL  DATE!  NOW,  DY1  .Ilk  I  ) 
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SUBROUTINE  BSEREP 
ENTRY  ENDCE(LR) 

CALL  ADMINKUNIT,  NO,  BASE,  BASE,  NO) 

CALL  OUTHEP (CEJOBQC 1,7), LTHCQ , 0 , NEC , EEC , LEC , PO .TIME ) 

CALL  DATE ( NOW, DY, HR) 

CALL  CHECK  (.BLDG  ,  NO  ,  NO  ,  NO  .NO  .BASE  ,  NO) 

CALL  DOWPF(BASE ,N27) 

IF  (BLDG  .EQ.  30)  CALL  DOWBLD ( BASE , FLAG ) 

IF  (EMERC  .NE.  0)  CALL  GOHOME (  NO,  BASE  ) 

CALL  IN  ICON (BLDG ,  TYPE,  BASE,  N,  START,  WHY) 

CALL  WAITS (WHY, BASE, TIME) 

SUBROUTINE  ENDAC (NAC , ACTYPE , BASE , ARG1 ) 

ENTRY  BENDAC (NAC, ACTYPE, BASE) 

CALL  ENDALT(NAC ,  ACTYPE,  BASE,  NO,  NO  ) 

CALL  LANDAC(NAC,N1 .BASE, BASE) 

CALL  EXHEAP ( ACN ( 1 , 1 8 ) , MAXACN , 1 , NEH , NO , NO , NAC ) 

CALL  REDNOR ( PART , NAC , BASE , NO . NO ) 

CALL  REMTSK (NAC , NF , 1 , NO , NO  ) 

CALL  0UTINT(SH0PS(5, SHOP, BASE) ,SH0PS(3, SHOP, BASE) , 

SH0PS(4, SHOP. BASE) ,NP) 

CALL  OUTW AT (SHOPS (8, SHOP, BASE) ,  SHOPS (6 .SHOP , BASE) , 

SHOPS (7, SHOP, BASE),  NP) 

CALL  STPTSK ( SHOPS ( 1 , SHOP , BASE ) , PEOPLE (1,3, BASE ) , 

AGESTK( 1,2, BASE)  ,  NP ,  CFLAG) 

CALL  KILLAC (NAC .KILL) 

SUBROUTINE  KILLAC (NAC .KILL) 

CALL  REDNOR (PART, NAC, BASE, NO, NO) 

CALL  REMTSK (NAC , NF , 2 , TASK , BASE ) 

IF  (REFILLU, CLASS)  .GE.  100)  CALL  ORDER(BASE .CLASS .ACTYPE ,N1 ) 
SUBROUTINE  SHCIRF(SHOP.BASE) 

CALL  SHPRES ( NN , - P ART , N 1 , B ASE , MM AXB . BASE ) 

CALL  OUTI NT (SHOPS ( 13 , SHOP , BASE) , SHOPS (11, SHOP , BASE ) , 

SH0PS(12, SHOP, BASE) ,  JOBP  ) 

CALL  0UTWAT(SH0PS(16, SHOP, BASE) ,SH0PS(14, SHOP, BASE) , 

SH0PS(15, SHOP, BASE) , JOBP  ) 
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TAB  I 


SUBROUTINE  SCSHIP 

CALI.  TTIME  (T  ,T1)  ,TIME  l ,N0 ,N0 ,N0 ,  SEEDED  (2 )  ) 

CALI,  MODHEP  (  PER  I OD  (  1  ,  1  )  ,20,NE,MC,SUB) 

SUBROUTINE  SIII’RES  ( CLASS  . TYPE  .NUM ,  BASE .NXBASE  ,  DBASE  ) 

CALL  REDPEO (TYPE , NUM , BASE , SHOPS ( 1 , 1 , BASE) , PEOPLE ( 1 , 1  .BASE) , 
AGESTK( 1.1. BASE) ,MATERL( 1 .BASE)  ) 

CALL  ADDAGE (TYPE .  -NUM,  BASE) 

CALL  ORDER (DESTIN .CLASS .TYPE , NUM) 

SUBROUTINE  ORDER ( BASE .CLASS .KIND, NUM1 

CALL  1NHEAP(RESUPP( 1 ,3) .I.LGQ.O.NEG, FEG, LEG, ARRIVE) 

C  ALL  TT1  ME  ( TI M ,  TL> ,  T I  ME ,  NO  ,  NO  .  NO  ,  NO  ) 

SUBROUT l NE  DOSH I P (Tl ME . FLAG ) 

ENTRY  RECSUP 
ENTRY  REFIL(NP) 

CALL  REDPEO (PROP ,  -NUM . BASE , SHOPS (1 . 1 . BASE ). PEOPLE ( 1 . 1 .BASE) , 
AGF.STK ( 1  , 1  .BASE)  ,MATERL(1  .BASE)  ) 

CALL  CHECK ( NO , NO , NO , PEOP , NO , BASE , CFLAG) 

CALL  DOVPF( BASE. SHOP) 

CALL  ADMIN  I (  -TYPE,  NO,  OBASE ,  BASE,  NO  ) 

CALL  ADDAGE (TYPE,  NUM,  BASE) 

CALL  CHECK (NO , NO , NO , NO , TYPE , BASE , CFLAG ) 

CALL  SHPRES(N3, -PART, N1 .BASE, NXBASE, OBASE) 

CALL  ORDER (  DESTIN,  N3,  UNIT,  Nl) 

CALL  SEND ( PART . BASE , RETA IN) 

CALL  DOWPF (BASE , SHOP) 

CALL  DOWBLDl. BASE  ,  FLAG) 

CALL  DOWITXBASE.SHOP) 

CALL  PSTFLT ( NAC . NO , NO , NO , N 1 , NO ) 

CALL  NEVAC (NAC 1 

CALL  OUTHEP ( RESUl’P  (1,3),  LLGQ ,  0  , NEG ,  FEG ,  LEG , NP , TIME ) 
SUBROUTINE  STATUS 

CALL  INHEAP (REPORT ( 1 , 1 ) .NOREPT, 1 .NORPT.FE ,LE .TIME) 

CALL  TTIME (XMITM ,  TD,  XMITME,  NO,  NO,  NO,  SEEDED (3)  ) 

ENTRY  SNDRPT ( LOG ) 

CALL  OUTHEP ( REPORT ( 1 , 1 ) .NOREPT , 1 , NORPT.FE , LE , LOC .TIME) 

CALL  1N11EAP (REPORT! 1,1) .NOREPT, 1 .NORPT, LOC , LE .TIME) 

ENTRY  RECRPT(LOC) 

CALL  OUTHEP (REPORT! 1 , 1 ) .NOREPT, 1 .NORPT, FE , LE . LOC .TIME) 

CALL  TTIME (XMITM,  TD,  XMITME,  NO,  NO,  ”0,  SEEDED(3)  ) 

CALL  INHEAP (REPORT (1,1) .NOREPT, 1 .NORP1 , LOC , LE .TIME) 


4 
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TAB  .! 


SUBROUTINE  SHIFT 

CALL  STPRKP  (SHOPS  (  1  ,  SHOP  ,  BASK )  ,  PEOPLE  U  ,3, BASE)  , 

AGESTK  (  1  ,  2  ,  BASE)  ,N1’ ,  BASE ) 

IF  (  SFLAG  .  EQ.  I)  CALL  STPTSKI SHOPS ( 1 .SHOP, BASE  ) , 

PEOPLE (1,3, BASE) ,  AGESTK ( 1 ,2, BASE) ,  NP ,  CFLAC  ) 

IF  (SFLAG  .EQ.  1)  CALL  STPBLI)(NI\  BASE) 

IF  ((CKALT.KQ.  1) -AM).  (ALKRTR.KQ.  D  )  CALL  RELALTf  BASE  ,  MOD  (  1  ) ) 

CA LL  CHECK  (  SHOP ,  NO  ,  NO  ,  NO  ,  NO  ,  BASE  ,  NO ) 

CALL  DOWPFI BASE. SHOP) 

CALL  DOW BED (BASE ,  BFLAG) 

SUBROUTINE  REl)PEO(PEOP ,NUM , BASE .SHOPS , PEOPLE , AGESTK, MATER L) 

CALL  STPRKP ( SHOPS ( 1 .SHOP) , PEOPLE! 1.3).  AGESTK (1,2),  NP,  BASE) 

CALL  STPBLD ( NP , RASE ) 

CALL  STPTSK ( SHOPS (1 .SHOP)  ,  PEOPLE(l,3),  AGESTK(1,2),  NT.  CFI.AG ) 

CALL  EXHEAP  (CF.JOBQt  7,  1  )  .  LTHCEQ  .  0  , NEC  .  FEC  ,  LEG  , NR ) 

SUBROUT I NK  CHECK ( ARG 1 , ARG2 , ARG3 , ARG4 , ARG5 , ARG6 , FLAG) 

CALL  RETASK (SHOPS (1,1, BASE ) , PEOPLE ( 1 , 1 , BASE ) , 

AGESTK ( 1 . 1 .BASE) .TASKP , START) 

CALL  DOWTSK ( SHOPS (1,1, BASE ) , PEOPLE ( 1 , 1 , BASE ) , PARTS (1,1,1), 

AGESTK ( 1 , 1 , BASE ) , MUNSTK (1,1, BASE ) , TRAP ( 1 , BASE ) , TASKP . START) 
CALL  REREP ( SHOPS (1,1, BASE ) , PEOPLE (1,3, BASE ) , AGESTK ( 1 , 2 , BASE ) , 

PARTS (1,1,1), TASKP,  BASE) 

CALL  DOW'REP( SHOPS  ( 1 , 1  ,  BASE) , PEOPLE ( 1 , 3  , BASE) ,  AGESTK(  1 , 2  , BASE) , 

PARTS (1,1,1),  TASKP,  BASE) 

CALL  NEWTSK (SHOPS (1,1, BASE ) , PEOPLE (1,1, BASE) , PARTS (1,1,1), 

AGESTK l 1 , 1 .BASE) , MUNSTK (1 , 1 , BASE ) ,TRAP( 1 , BASE ) , 

NA,  TASK,  RTASK ,  START,  BEGUN  ) 

CALL  RKMTSK ( NA .TASKP , 2 ,TSK , BASE ) 

CALL  DOWPFI BASE, SHOP) 

ENTRY  2CHECK 
SUBROUTINE  STKTSK 

ENTRY  STTASK  (NAC,  TASK,  NFLAG ,  BASE) 

ENTRY  REMTSK ( NAC ,  NP,  NFLAG,  TASK, BASE) 

SUBROUTINE  NORRPT 

ENTRY  RPTNOR ( PART , CR IT , NAC , BASE ) 

CALL  ORDERP(PAKT, BASE, FLAG) 

CALL  GETPRT(PART, BASE) 

CALL  FINDPT(PART.BASE) 

ENTRY  REDNOR ( PART , NAC , B ASE , P 1 , P2 ) 

SUBROUTINE  AVGTME (  AVGTSK ,  AVGREP  ) 

CALL  CKNETI  ACTYPE,  TASK,  PART,  PTASK,  NR,  LEVEL,  VERIFY,  FLAG  ) 
SUBROUTINE  INTRUP 

ENTRY  ININT  (NE,  NT,  NL,  TIME,  NLE) 

ENTRY  0UT1NT(NE ,  NF,  NL,  NO) 

SUBROUTINE  WAIT 

ENTRY  I NWA  IT  ( NE  ,  N'F ,  NL ,  T I  ME  ,  NLE ) 

ENTRY  OUTWAT ( NE , NF , NL , NO ) 

SUBROUTINE  HEAP 

ENTRY  INHEAP(A,NH,  NFLAG ,NE , FE , LE .TIME) 

ENTRY  OUTHEP ( A , Nil , NFLAG , NE , FE , LE , PO .TIME ) 
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ENTRY  KXHKAP  ( A  ,  Nil,  NT  LAG  ,  NK  ,  FE ,  LK  ,  PR) 

ENTRY  NODHEP ( A  ,  NH  ,  NP. ,  MC  ,  ADD) 

SUBROUT  I NK  ACWA 1 T ( SHOPS , FLAG , NTASK , NAG , PART , AGE , PEG , TME , 

WHY, WHEN, NNOW.KTASK  ) 

CALL  1 NVA 1T(SH0PS ( 8 ) , SHOPS (6 ) , SHOPS ( 7 ) ,T! ME , NLEW ) 
SUBROUT  I NE  RESET 
BLOCK  DATA 

Sl'BROlT  I  NE  Tn  ME  (T,TI) ,  TT ,  Hl'RRYX .  REDUCX .  SAY  EX  ,  SEED  ) 
SUBROUTINE  SHPRQT(NAC ,NRN .SHOP ,ACTYPE , TRANS ,TSKP .TASK ,ND  ) 
ENTRY  SHPKQ (  ND,  NAC ,  ACTYPE,  TRANS,  TASK  ) 

SUBROUTINE  BREAK 

SUBROUTINE  LOSSES  (N,  1 PK ,  LOST, NONUNI) 

FUNCTION  RANDG(N) 

ENTRY  IRANDGI  FF  ) 

ENTRY  CRANDG (  FF  ) 

SUBROUTINE  ACCRIT 

SUBROUTINE  LIST1 (L.H.R.NAMEI ,NAME2 ,N , FLAG ) 

ENTRY  L I  ST  I E  (,  L ,  H  ,  R ,  N ,  FLAG ) 

SUBROUTINE  LI ST2 ( L , H , R , NAME  I , NAME2 , N ,  MB) 

CALL  LI  ST  1 F.  ( L ,  H ,  R ,  N  ( 1 . 1 , 1 ) ,  I ) 

SUBROUTINE  LIST3 (N , M ,T, NAME  1 .NAME2 , A) 

SUBROUT  I  NE  LI  ST4  (11 ,  L ,  R ,  NAME  1 ,  NAME  2 ,  N  .FLAG ) 

ENTRY  LIST4E(H,L,R,N .FLAG) 

SUBROUTINE  LISTS (H , L , R .NAME  1 .NAME2 ,N ,  MB) 

CALL  LIST4E(H , L.R ,N( 1 , 1 ,1) .1) 

FUNCTION  SHOPST ( I ,  SHOP,  BASE) 

FUNCTION  DAY (TIME ) 

FUNCTION  TOD (TIME) 

FUNCTION  HRMIN(TIME) 

SUBROUT  I  NE  DATE  (.T 1  ME  ,  DY  .  HR  ) 

FUNCTION  THF ( TIME) 

FUNCTION  TUCriME) 

SUBROUTINE  HELPER  (L,  NP) 
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APPENDIX  F 

LABELED  COMMON  USAGE  BY  SUBROUTINE 


This  section  lists  the  name  of  each  labeled  Common  statement  used 
in  TSAR.  When  available  in  machine  readable  form,  this  list  is  particu 
larly  useful  for  determining  all  locations  that  employ  a  particular  Com 
moil  statement.  A  machine  readable  copy  of  this  list  will  be  provided, 
along  with  other  items,  to  any  agency  that  acquires  a  copy  of  the  TSAR 
sortie  generation  source  decks. 


TAB  A 


MAIN  ROUTINE 

SUBROUTINE  TRIALS 
BASIC 
JOBS 
INFO 
REQTS 

SUBROUTINE  MANAGE 
BASIC 
STOCKS 
LOAD 
THEATR 
BOMBSE 
INFO 
REQTS 
AISCOM 

SUBROUTINE  ADAPT 
BASIC 
STOCKS 
LOAD 
JOBS 
THEATR 
BOMBSE 
INFO 
OUT 
REQTS 
CPARTS 
AISCOM 

SUBROUTINE  CONTRL 
BASIC 
STOCKS 
LOAD 
JOBS 
THEATR 


J 
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BOMBSE 

KKQTS 

INFO 

OUT 

LOGAI.4 

SUBROUTINE  FERRY 
HAS  1 C 
JOBS 
LOAD 
STOCKS 
KKOTS 
BOMBSE 

SUBROUTINE  GOHOME 
BASIC 
LOAD 


'H. 

b 

K 

* 

=! 

h 

Uj 

'I 


k 


i 
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TAB  B 


SUBROUTINE  INIT 
BASIC 
STOCKS 
LOAD 
JOBS 
THEATR 
BOMBSE 
INFO 
OUT 
REQTS 
CHARTS 
AISCOM 
PURGE  1 
PURCE2 
PURGE 3 
TESTS 

SUBROUTINE  INPUT 
BASIC 
STOCKS 
LOAD 
JOBS 
THEATR 
BOMBSE 
INFO 
OUT 
REQTS 
CHARTS 
PURGE! 

LOCAL 1 

TESTS 

T1MHOR 

SUBROUTINE  INPUTA 
BASIC 
STOCKS 
LOAD 
JOBS 
THEATR 
BOMBSE 
INFO 
OUT 
CHARTS 
AISCOM 
PURGE  1 

SUBROUTINE  1NPUTB 
BASIC 
STOCKS 
LOAD 
JOBS 
THEATR 
BOMBSE 
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BOMBSE 

REQTS 

INFO 

OUT 

L0CAL4 

SUBROUTINE  FERRY 
BASIC 
JOBS 
LOAD 
STOCKS 
REQTS 
BOMBSE 

SUBROUTINE  GOHOME 
BASIC 
LOAD 


k 


L 
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INFO 
OUT 
C PARTS 

SUBROUTINE  INPUTC 

SUBROUTINE  WRAPUP 
BASIC 
STOCKS 
JOBS 
LOAD 
TIIEATR 
BOMBSE 
REQTS 
INFO 
C PARTS 
AISCOM 
PURGE  1 

SUBROUTINE  I  CHECK 
BASIC 
STOCKS 
JOBS 
LOAD 
CHARTS 
OUT 
PURGE  1 
LOCAL 1 

SUBROUTINE  HELPCK 
BASIC 
STOCKS 
LOCAL 1 

SUBROUTINE  INI, 1ST 
BASIC 
STOCKS 
LOAD 
JOBS 
TIIEATR 
BOMBSE 
INFO 
OUT 

SUBROUTINE  HEADER 
BASIC- 
JOBS 
TIIEATR 
BOMBSE 
INFO 
CHARTS 
REQTS 
TESTS 

SUBROUTINE  INTTIZ 
BASIC 
STOCKS 
JOBS 

load 


THF.ATR 

BOMBSE 

INFO 

REQTS 

SUBROUT INK  ZSHOPS 
BASIC 
STOCKS 
JOBS 
REQTS 
PURGES 

SUBROUTINE  TESTER 
BASIC 
BOMBSE 
AISCOM 

SUBROUTINE  MODIFY 
BASIC 
JOBS 

SUBROUTINE  CKNET 
JOBS 

SUBROUTINE  CKRQT 
JOBS 
REQTS 
PURGE  1 
PURGE 2 

SUBROUTINE  CKSPLT 
BASIC 
JOBS 
REQTS 
PURGE  1 

SUBROUTINE  ZNOR 
BASIC 
STOCKS 
JOBS 
ZZNORS 
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TAB  C 


SUBROUTINE  COMPRT 
BASIC 
STOCKS 
JOBS 
THEATR 
C PARTS 
PURGE  1 
PURGE 3 

SUBROUTINE  1  PARTS 
BASIC 
STOCKS 
JOBS 
THEATR 
RI'.QTS 
C PARTS 
PURGE  1 
PURGE3 

SUBROUTINE  1  PARTI* 
BASIC 
STOCKS 
THEATR 
CPARTS 
PURGE 1 
PURGE 3 
7/ANOKS 

SUBROUTINE  CKNRTS 
BASIC 
STOCKS 
JOBS 
THEATR 
CHARTS 
PURGE3 

SUBROUTINE  R REQTS 
BASIC 
JOBS 
REQTS 

SUBROUTINE  REQTS I 
BASIC 
STOCKS 
JOBS 
REQTS 

SUBROUTINE  OUTPUT 
BAS  I C 
STOCKS 
JOBS 
THEATR 
BOM BSE 
AISCOM 
OUT 
EuCAl.J 
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t 
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SUBROUTINE  ASSETS 
BASIC 
STOCKS 
C PARTS 

SUBROUTINE  ASSET2 
BASIC 
STOCKS 

SUBROUTINE  TIMES 
BASIC 
OUT 

SUBROUTINE  DELAYS 
BASIC 
STOCKS 
JOBS 
BOM BSE 
C PARTS 
OUT 


AISCOM 

L0CAL2 
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TAB  D 

SUBROUTINE  READFT 
BASIC 
LOAD 
THEATR 
BOMBSE 
REQTS 
LOCAL3 

SUBROUTINE  FRAG 
BASIC 
BOMBSE 
REQTS 

SUBROUTINE  l’LAN 
BASIC 
STOCKS 
LOAD 
JOBS 
BOMBSE 

SUBROUTINE  PLAN1 
BASIC 

SUBROUTINE  BASCAP 
BASIC 
LOAD 
STOCKS 
JOBS 
INFO 
BOMBSE 
REQTS 
LOCAL 3 

SUBROUTINE  REASSG 
BASIC 
STOCKS 
LOAD 
JOBS 
REQTS 
CPARTS 
LOCAL3 

SUBROUTINE  FLYERS 
BASIC 

SUBROUTINE  DISABL 
BASIC 

SUBROUTINE  FLIGHT 
BASIC 
LOAD 
OUT 

SUBROUTINE  LAUNCH 
BASIC 
STOCKS 
OUT 
REQTS 

SUBROUTINE  SORT 
BASIC 
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TAB  E 


SUBROUTINE  PSTFLT 
BASIC 
STOCKS 
LOAD 
JOBS 
BOMBSE 
OUT 

SUBROUTINE  RUNAC 
BASIC 
STOCKS 
LOAD 
JOBS 
BOMBSE 
OUT 

SUBROUTINE  INITSK 
BASIC 
JOBS 
TIIEATR 
BOMBSE 
OUT 

SUBROUTINE  DOTASK 
BASIC 
JOBS 

SUBROUTINE  ENDTSK 
BASIC 
JOBS 

SUBROUTINE  CHKW'X 
BAS  I C 

SUBROUTINE  INIDEI' 
BASIC 
STOCKS 
JOBS 
C PARTS 

SUBROUTINE  C ANN  IB 
BASIC 
STOCKS 
JOBS 

SUBROUTINE  INCOMP 
BASIC 
JOBS 

SUBROUTINE  CKCR1T 
BASIC 
STOCKS 
JOBS 
BOMBSE 

SUBROUTINE  CKROOT 
BASIC 

SUBROUTINE  SCHJOB 
BASIC 
STOCKS 
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TAB 


SUBROUTINE  PREFLT 
BASIC 
STOCKS 
EGAD 
JOBS 
LDAMMO 
RKCNF 

SUBROUTINE  ASSIGN- 
BASIC 
STOCKS 

SUBROUTINE  RKCNFG 
BASIC 
LOAD 
OUT 
RE  CNF 

SUBROUTINE  UPLOAD 
BASIC 
OUT 
LDAMMO 

SUBROUTINE  REFUEL 
BASIC 
JOBS 
OUT 

SUBROUTINE  DOVPRE 
BAS  I C 
STOCKS 
LOAD 
JOBS 
OUT 
LDAMMO 
REUSE 

SI  IsRUUTI NE  MUNEED 
BASIC 
STOCKS 
LOAD 
jobs 
OUT 

SUBROUTINE  CKBILD 
BASIC 
JOBS 
STOCKS 

SI  i>KO«.  T1  Ni.  i )0 B  !  LD 
BAS  1  C 
STi  iCKS 
IOBS 
OUT 

s'  bk^utim;  ukteop 

BASIC 

SUBROUTINE  CKAGE 
BASIC 


-t,r_ 


JOBS 

SI 'B  ROUT  I  NT.  ADDAGE 
BASIC 
STOCKS 
JOBS 
AISCOM 

SUBROUTI  NF  CKAI.RT 
BASIC 
STOCKS 
JOBS 

SUBROUTI  NF  R  FI,  A  FT 
BASIC 
STOCKS 
1,0  AI) 


l 


k 


i 

! 


i 


~')b 


TAB 


SUBROUTINE  ADMIN 
BAS  1 0 
STOCKS 
JOBS 
INKO 
THEATR 
BOMBSE 
A I  SCUM 

SUBROUTINE  RUNSHP 
BASIC 
STOCKS 
JOBS 
THEATR 
OUT 

SUBROUTINE  INI  REP 
BASIC 
JOBS 
THEATR 
INFO 
OUT 
AISCOM 

SUBROUTINE  DOREP 
BASIC 
JOBS 
AISCOM 

SUBROUTINE  ENDREP 
BASIC 
JOBS 
AISCOM 

SUBROUTINE  SALVAG 
BASIC 
JOBS 
THEATR 

SUBROUTINE  CKCIRF 
BASIC 
STOCKS 
JOBS 

SUBROUTINE  REPRTY 
BASIC 
STOCKS 
JOBS 
OUT 
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SUBROUTINE  CKAIS 
BASIC 
OUT 
JOBS 
AISCOM 

SUBROUTINE  NRTSIT 
BASIC 
STOCKS 
THEATR 


i 


i 


SUBROUTINE  BOMB 
BASIC 
STOCKS 
JOBS 
BOMBSE 
A I  SCON 
PURGE4 

SUBROUTINE  REORCN 
BASIC 
STOCKS 
JOBS 
THEATK 
BOMBSE 
OUT 
AISCOM 
PURGF.4 

SUBROUTINE  REORG2 
BASIC 
STOCKS 
JOBS 
THEATR 
BOMBSE 
OUT 
AISCOM 
PURGE4 

SUBROUTINE  PICK 
BOMBSE 

SUBROUTINE  KEB1EI) 
BASIC 
STOCKS 
BOMBSE 

SUBROUTINE  INICON 
BAS  I C 
STOCKS 
BOMBSE 

SUBROUTINE  BSERF.P 
BASIC 
STOCKS 
JOBS 
BOMBSE 

SUBROUTINE  ENDAC 
BASIC 
STOCKS 
LOAD 
JOBS 


i 
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STOCKS 

JOBS 

THEATH 

BOMBSK 
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TAB  I 

SUBROUTINE  SCSHIP 
BASIC 
THEATR 

SUBROUTINE  SHPRES 
BASIC 
STOCKS 
THEATR 

SUBROUTINE  ORDER 
BASIC 
STOCKS 

SUBROUTINE  DOSHIP 
BASIC 
STOCKS 
JOBS 
THEATR 
BOMBSE 
C PARTS 

SUBROUTINE  STATUS 
BASIC 
STOCKS 
INFO 


k, 


L 
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TAB  J 


SUBROUTINE  SHIFT 
BASIC 
STOCKS 
BOM BSE 

SUBROUTINE  REDI’EO 
BASIC 
BOMBSE 

SUBROUTINE  CHECK 
BASIC 
STOCKS 
JOBS 
LOCAL3 

SUBROUTINE  STRTSK 
BASIC 
STOCKS 
JOBS 

SUBROUTINE  NORRPT 
BASIC 
STOCKS 

SUBROUTINE  AVGTME 
BASIC 
STOCKS 
REQTS 
JOBS 
CHARTS 

SUBROUTINE  INTRUP 
BASIC 

SUBROUTINE  WAIT 
BASIC 

SUBROUTINE  HEAP 
SUBROUTINE  ACWAIT 
BASIC 

SUBROUTINE  RESET 
BASIC 

t,  THEATR 

BOMBSE 

INFO 

BASIC 

SUBROUTINE  TTIME 
SUBROUTINE  SHPRQT 
BASIC 
JOBS 

SUBROUTINE  BREAK 
BASIC 
JOBS 
OUT 

SUBROUTINE  LOSSES 
SUBROUTINE  ACCRIT 
BASIC 
STOCKS 
JOBS 
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Sl'B ROUTINE  LI  ST  1 
SUBROUTINE  L1ST2 
SUBROUTINE  I.IST3 
SUBROUTINE  L1ST4 
SUBROUTINE  LISTS 
STOCKS 

SUBROUTINE  DATE 
T1MH0R 
TIMHOR 

SUBROUTINE  IIELI’ER 
BASIC 
STOCKS 
BOMBSE 
OUT 


1 


i 


i 


! 
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APPEND1X  G 

JOB  CONTROL  LANGUAGE  CONTROL  CARDS 
Control  Cards  to  Execute  TSAR 


The  Job  Control  Language  cards  required  to  execute  the  TSAR  simulation 
when  TSARINA  is  not  used  during  the  same  computer  run  are  illustrated  below. 
Air  base  attack  data  for  the  first  trial  are  entered  in  their  appropriate 
location;  if  different  damage  data  are  to  be  used  for  subsequent  trials  the 
data  for  the  first  trial  should  be  concluded  with  a  special  Card  Type  #40 
with  '999'  entered  in  columns  3-5,  as  explained  in  the  comments  that  will 
be  found  with  the  source  code  for  Subroutine  INPUTC.  The  damage  data  for 
the  subsequent  trials  are  then  entered  following  the  last  of  the  sortie 
demand  data  (Card  Types  #50)  and  demand  terminator  cards  (Card  Type  #99) 
that  will  be  read  in  during  the  simulation.  The  damage  data  for  each  trial 
other  than  the  first  must  be  terminated  by  entering  a  card  with  '  O'  in 
columns  1-2. 


//X0000SKT  JOB  (0000,250,7 ,30) , '.ICL  TO  EXECUTE  TSAR  1 ’ ,CLASS=N 
//JOB  LIB  1)1)  DSN=X  .  X0000  .  AOOOO  .  TSAR  .  1  .  EXECUTE  ,  i)  I  SP=SHR 
//GO  PR0C 

//GO  EXEC  PGM=TSAR#I#1 
//GO.  FT05F001  1)1)  l)l)NAME=SYS  IN 

//GO.  FTOhFOOl  1)1)  SYS0UT=A 
//GO .  FTO  7 K00 1  1)1)  SYS0UT=B 

/  /GO  .  FT  1 0F00  1  1)1)  UN  IT-FEMP , SPACE=(TRK  ,  (40,2)  ) , 

/  /  DC  B=  ( KF.C  KM=VS  ,  BLKS  I  2F.=  10000  ) ,  DIS  P=  ( NEW  .PASS) 

//G0.FT1  1F001  I)D  UN  1  T=TEMP ,  SPACE=  (TRK  ,  (  1.1))  ,  I)  1  SP=  ( NEW  ,  PASS ) 

/ /GO . FT  1 2F001  DD  UNIT=TEMP,SPACE=(TRK, ( 10,2) ) , 

II  DC  B= ( RECFM=VS , B  LKS 1 ZK= 5000),  1)  I SP= ( NEW , PASS ) 

/ /GO  .  FT1  5F001  DD  UN  1T=TEMP  ,SPACF.=  (TRK  ,(40,4))  , 

/  /  DCB=  (  RF.CFM=VS  ,  BLKS  I  ZE=1 0000 )  , I) I SP=( NEW  ,  PASS  ) 

//■-•I  2  3  4  5  6  7  8 

//*  567890  1 234567890 1 234567890 1234567890 12345t>78')012345b7890  12.34567890 123456  7890 

//  PEND 

//STEP  1  EXEC  GO , REG  ION. G0= 1 340K 
//GO.  SYS  IN  1)1) 

The  TSAR  input  deck  is  to  be  entered  here. 

/  •/.- 
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Control  Cards  for  Executi ng  TSAR  I NA  and  TSAR 

The  Job  Control  Language  cards  shown  below  are  illustrative  of  the 

JCL  requirements  for  executing  TSARINA  and  TSAR  together. 

//X0000/;01  JOB  (0000,200,7,20),  ’TSAR  .TSARINA  .  JCL '  ,C1,ASS=N 
/  /STF.P1  EXEC  PGM=0BJ#1#81  ,  REG  l()N=280K 

/ / STF.PL IB  DD  1)SN=X .  X0000  .  A0000  .  TSAR  I N  .  OBJECT , D 1  S1’=S1!R 

//FT05F001  DD  DDNAME=SYS IN 
/ /FT06F001  DD  SYSOUT=A 
//FT07F00 1  DD  SYS0UT=B 


The  following  ten  cards  create  ten  separate  temporary  data  sets  in 
which  the  results  for  each  of  ten  trial  calculations  of  the  airbase 
attacks  are  stored.  If  more  trials  are  used,  more  data  sets  would  be 
required . 


//FT21F001  DD  UNIT=TEMP , SPACE=(TRK ,(1,1)) ,DISP=(NEW , PASS ) 
//FT22F001  DD  UN IT=TEMP , SPACED (TRK , (1,1)) , DISP=( NEW , PASS) 
//FT23F001  DD  UNIT=TEMP,SPACE=(TRK, (1 , 1)) ,D1SP=(NEW,PASS) 
//FT24F001  DD  UNIT=TEMP ,SPACE=(TRK ,(1,1)) , DISP= (NEW , PASS) 
//FT23F001  DD  UN1T=TEMP,SPACE=(TRK,  (1  ,1))  , DISP=  (NEW  , PASS) 
/ /FT26F00 1  DD  UNIT=TEMP ,SPACE=(TRK, ( 1 , 1 ) ) ,DISP=(NEW , PASS) 
//FT27F001  DD  UNIT=TEMP,SPACE=(TRK, ( 1 , 1 ) ) ,DISP=(NEW .PASS) 
/  'FT28F00 1  DD  l'NIT=TEMP ,  SPACE=(TRK ,  ( 1 , 1 ) )  ,DISP=(NEW ,  PASS ) 
//FT29F001  DD  UN1T=TF.MP  ,  SPACE=(TRK  ,  (  1  , 1 )  )  ,D1SP=(NEW ,  PASS) 
/  /'FT30F00 1  DD  UN  I  T=TEMP ,  SPACE=  (TRK  ,  (  1  , 1 ) )  ,  D I  SP=  (NEW  ,  PASS ) 
//GO. SYSIN  DD  * 


The  input  data  for  the  TSARINA  calculations  are  entered  here.  The 
CONTrol  card  is  entered  first,  followed  by  the  DATA  card  and  other  basic 
control  cards,  the  target  cards,  attack  cards  and  weapon  effectiveness 
cards;  the  last  entry  card  should  be  an  END  card. 


The  JCL  cards  on  the  next  page  complete  the  requirements  for  a  com¬ 


plete  TSARINA-TSAR  simulation. 
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//STEP2 

EXEC 

PGM=TSAR// 1  // 1 ,  REG  I  ON=  1 320K 

//STEPLIB 

DD 

DSN=X . XOOOO . AOOOO . TSAR . I . EXECUTE ,  I)  I SP=SHR 

//FT05F001 

DD 

DDNAME=SYSIN 

//FTObFOOl 

DD 

SYSOUT=A 

//FT07F00 1 

DD 

SYSOUT=B 

//FT10F001 

DD 

UN  rr=TEMP.SPACE=(TRK, 140,2)), 

/  /  DCB=  (. RECFM=VS  , B  LKS I ZE= 1 0000 ) , D I S  P= ( NEW ,  PASS ) 

/ / FT 1 1F001  DD  UNIT=TEMP,SPACE=(TRK, ( 1.1) ) ,DIST=(NEW,PASS) 

//FT12F001  DD  DMT=TEMP,SPACE=(TRK,  ( 10,2) )  , 

/ 1  DCB=  (  RECFM=VS  ,  B LKS  I  ZF.=  1 0000 )  ,  D 1  SP=  (NEW  ,  PASS ) 

//FT15F001  DD  UNTr=TEMP,SPACE=(TRK, 140.4) ) , 

/ /  DCB= ( RECFM=VS , B  LKS I ZE= 10000 ) , D 1 SP= (NEW , PASS ) 

DSN=* .  STEP  1  .  FT2 1F00 1  ,D1SP=(0LD, DELETE) 

DSN=* . STEP1 . FT22F00 1 , D 1 SP= ( OLD . DELETE ) 
DSN=*. STEP1 . FT23F001 ,DISP=(0LD, DELETE) 

DSN=- . STEP 1 . FT24F001 ,D1 SP=(OLD .DELETE) 
DSN=* . STEP1 . FT25F001 ,DISP=fOLD, DELETE) 
DSN=*. STEP1 . FT26F001 ,I)ISP=(OLD, DELETE) 
DSN=* .  STEP  1 .  FT2  7  FOO 1  ,DISP=(  OLD,  DELETE) 
DSN-'-.STEPl . FT28F00 1 ,DISP= (OLD. DELETE) 
DSN=*.STEP1 .FT29F001 ,DISP=(OLD, DELETE) 
DSN=* .  STEP1 .  FT30F00 1  ,1)1  SP=(  OLD  .DELETE) 


//FT21F001 

DU 

//FT22F00 1 

DD 

//FT23F001 

DD 

/ /FT 2 4 FOO 1 

DD 

//FT25F001 

DD 

//FT26F00 1 

DD 

//FT27F001 

DD 

//FT28F00 1 

DD 

//FT29F001 

DD 

/ /FT30F00 1 

DD 

//GO.SYSIN 

DD 

Tho  TSAR  input  data  dock  is  entered  here.  The  airbase  attack  dam¬ 
age  data  will  be  road  in  from  the  temporary  data  sets  at  the  appropriate 
Lime  during  the  simulation  when  an  '888'  is  entered  in  columns  3-5  on  a 
Card  Type  /;40. 

If  '777'  is  entered  on  that  card,  rather  than  '888',  the  damage 
data  stored  for  the  first  trial  by  TSARINA  will  be  used  for  all  trials 
in  the  TSAR  simulation.  Otherwise,  all  TSAR  input  procedures  are  unaf¬ 
fected  when  TSARINA  is  used  with  TSAR. 

/* 
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Control  Cards  l'or  Compiling  TSAR 

The  Jot>  Control  Language  cards  shown  tie  low  can  be  used  to  compile 
the  TSAR  source  code,  or  selected  portions  of  that  code.  As  noted,  t he 
Common  statements  are  stored  as  members  of  the  partitioned  data  set 
TSAR . I . COMMON  and  are  entered  into  the  appropriate  subroutine  source 
codes  using  JCL  statements  that  will  be  found  near  the  beginning  of  the 
various  subroutines.  Two  options  for  an  OVERLAY  structure  are  illus- 
t  rated . 


/  /XOOOOA'O  1  JOB  (0000,40,7,40)  ,  '  C0MP1  LE  .  TSAR  .  I  ’  ,CLASS=F 
//STEP1  EXEC  PGM=IEFBR14 

/ /NEWM0P  DO  DSN=&STF,MP , D I SP=  ( NEW , PASS ) , UN IT=TEMP , 

//  DCB=  ( RECFM=U , LRECL=3 156, BLKS I ZF.=3 156) , 

//  SPACE=(TRK, (60,10,1)) 

//BASIC  DD  DSN=X. XOOOO. AOOOO. TSAR. I .COMMON (BASIC ) ,DISP=SHR 

//STOCKS  DD  DSN=X . X0000 . A0000 . TSAR . I . COMMON ( STOCKS ) ,DISP=SHR 

//LOAD  DD  DSN-X. XOOOO .A0000 .TSAR . I . COMMON ( LOAD ) ,DISP=SHR 

//JOBS  DD  DSN=X.XOOOO.AOOOO.TSAR. I .C0MM0N( JOBS) ,DISP=SHR 

/ /THEATR  DD  DSN=X . X0000 . A0000 . TSAR . 1 . COMMON (THE ATR ) ,D1SP=SHR 

//BOMBSE  DD  DSN=X .  X0000  .  A0000 . TSAR .  I .  COMMON (BOMBSE )  ,DJSP=SHR 

//REQTS  DD  DSN=X . X0000 . A0000 . TSAR . 1 . COMMON ( REQTS ) ,DISP=SHR 

/ /CPARTS  DD  DSN=X . X0000 . AOOOO . TSAR . 1 . COMMON (C PARTS) ,DISP=SHR 

//INFO  DD  DSN=X. X0000. AOOOO. TSAR. I . COMMON ( INFO) ,DISP=SHR 

//OCT  DD  1)SN=X . X0000 . AOOOO . TSAR . 1 . COMMON (OUT) ,D1 SP=SHR 

//AISCOM  DD  DS\=X. XOOOO, AOOOO. TSAR. 1 .COMMON(AISCOM) ,DISP=SHR 

// PURGE  1  I)D  I)SN=X.XOOOO.  AOOOO.  TSAR.  1  .  COMMON  (PURGE  1 )  ,  D1  SP=SHR 

// PURGE J  DD  DSN=X. XOOOO. AOOOO. TSAR. I . COMMON (PURGE2) ,DISF=SHR 

/ / PURGE3  DD  DSN=X. XOOOO. AOOOO. TSAR. I . COMMON (PURGE3) ,D1SP=SHR 

/ /PURGE4  DD  DSN-X . XOOOO . AOOOO . TSAR . I . COMMON ( PURGE4 ) ,D1SP=SHR 

/ /PURGE5  DD  DSN=X. XOOOO. AOOOO. TSAR. I . COMMON (PURGE5 ) ,DISP=SHR 

//LOCAL1  DD  DSN=X. XOOOO. AOOOO. TSAR. I . COMMON (LOCAL1) ,DISP=SHR 

//LOCAL2  DD  DSN=X . XOOOO . AOOOO . TSAR . I . COMMON (L0CAL2 ) ,DISP=SHR 

/ /L0CAL3  DD  DSN=X . XOOOO . AOOOO . TSAR . I . COMMON (LOCAL3 ) ,DISP=SHR 

//L0CAL4  DD  DSN=X . XOOOO . AOOOO .TSAR . I . COMMON (L0CAL4) ,DISP=SHR 

//* 

//STEP2  EXEC  FORTHCL,REGC=400K,PARMC='XREF,OPT(2) , NOTERM ' , 

//  LIBL='SYS1 .FORTERR' ,PARM. LKED='OVLY,MAP,XCAL' 

//FORT. SYSIN  DD  * ,DCB=BLKSIZE=800 

The  TSAR  source  decks  are  placed  here.  Two  versions  of  the  con¬ 
cluding  JCL  cards  appear  on  subsequent  pages,  illustrating  the  two 
options  for  an  OVERLAY  structure. 
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I 


3 


i 


i 


OVERLAY  Opt  ion  Number  1 

Tin1  following  0VT.K1.AY  structure  lias  boon  designed  to  minimize  the 
core  requirement  without  excessive  or  overly  inefficient  movement  of  the 
segments.  The  second  overlay  structure  is  even  more  efficient  but  takes 
somewhat  more  core. 


/ / LKF.D  .  SYSLMOD  DI)  DSN=&&TEMP(TSAR#I#1 ) ,DISP=(0LD, PASS) 
//LKEU.OLDLIB  DP  DSN=X  .  K0000  .  A0000  .  TSAR  .  1  .  EXECUTE  ,  P 1  SP=SHK 
//LKED .  SYS  IN  Dl)  * 

ENTRY  MAIN 

INCLUDE  OLPLI BlTSAR/f I#  1 ) 

INSERT  MAIN, TRIALS, MODIFY 
INSERT  SHPRQT , CKNET.TT1ME 
OVERLAY  ZERO 

INSERT  I N I T , I NPUT , CKRQT , PURGE  I , PURGE2 , PURGE 3 . LOCAL 1 
OVERLAY  ONE 

INSERT  INPUTA, INPUTB, I NPUTC, TESTER, ENTRYP 
OVERLAY  ONE 

INSERT  WRAPUP , PSHORT 
OVERLAY  TWO 

INSERT  I CHECK , HELPCK , CKSPLT 
OVERLAY  TWO 

I NSERT  COMPRT , I  PARTS , IPART2 , CKNRTS 
OVERLAY  TWO 

INSERT  I N IT  I Z , I NLI ST , HEADER , AVGTME , RREQTS , REQTS 1 
INSERT  LIST1 , LIST2 , LIST3 , LIST4 , LISTS 
OVERLAY  ZERO 

INSERT  MANAGE , ADMIN , PLAN .PLAN  1 .SORT 
I NSERT  SH I  FT , REDPEO , CKPEOP , CKA I S , DOB  I LD 
INSERT  CONTRL, TIMES , ASSET2 , HELPER , L0CAL3 , L0CAL4 
OVERLAY  THREE 

INSERT  READFT ,  FRAG ,  SCSH I P ,  ADAPT ,  MUNEEI) ,  CKB I  LI) 

INSERT  OUTPUT , ASSETS , ACCR IT , BREAK , DELAYS , JOBLST , L0CAL2 
OVERLAY  THREE 

INSERT  FERRY , GOHOME , PSTFLT , RUNAC , I N I TSK , DOTASK , ENDTSK 
INSERT  CHKWX, INCOMP, INIDEF , CANNI B , SCHJOB , SPLIT, CKROOT 
I NSERT  RUNSHP , I N I REP , DOREP , ENDREP , SALVAG , REPRTY , NRTS IT 
INSERT  STATUS .CHECK , STRTSK , NORRPT, I NTRUP .WAIT, ACWA I T 
INSERT  DISABL , GETPEO , CKCR1T , CKAGE , ADDAGE , CKALRT , RELALT 
INSERT  ENDAC , K I LLAC , DOSHIP , SHPRES , ORDER , SHC I RF , CKC I RF 
INSERT  BSEREP, INICON, FTIME 
OVERLAY  FOUR 

INSERT  ZSHOPS , ZNOR , PURGE5 
OVERLAY  FOUR 

INSERT  FLYERS, FLIGHT, LAUNCH 

INSERT  PREFLT , ASSIGN , RECNFG , UPLOAD , REFUEL , DOWPRE 
INSERT  BASCAP.REASSG, RESET 
OVERLAY  FOUR 

INSERT  BOMB , REORGN , RE0RG2 , PI CK , REB I LD , LOSSES , PURGE4 


k 


to 
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OVERLAY  FOUR 

INSERT  BOMB , REORGN , REORG2 , P I CK , REB I LD , LOSSES , PURGE4 


The  JCL  that  concludes  the  TSAR  compile  and  link-edit  process  is 
shown  below.  These  cards  carry  out  the  link-editing  on  a  temporary 
disk,  scratch  the  earlier  load  module,  and  restore  the  new  load  module 
on  the  same  disk  using  the  old  name;  this  sequence  is  used  to  avoid  loss 
of  tiie  load  module  when  space  is  insufficient  on  the  normal  storage  disk 
to  temporarily  store  both  the  old  and  new  versions. 


//SCRATCH 

EXEC 

PGM= I EHPROGM , C0ND= ( 4 , LT , STEP2 . FORT ) 

//SYSPRINT 

DD 

SYSOUT=A 

//DD1 

DD 

DSN=X . X0000 . A0000 . TSAR . I . EXECUTE , D 1 S  P=OLD 

//SYSIN 

DD 

* 

SCRATCH 

DSNAME=X . X0000 . A0000 . TSAR . 1 . EXECUTE , V0L=USER=USER8 1 , 
MEMBER=TSAR# I # 1 

//COPY 

EXEC 

PGM=I  F.BCOPY  ,  REG 1 0N=280K  ,  CONI)=  ( 4  ,  LT ,  STEP2  .  FORT ) 

//SYSPRINT 

DD 

SYSOUT=A 

//IN 

DD 

DSN=88TEMP ,  I)  I  SP=(OI,D .  PASS ) 

//PRESS 

DD 

I)SN=X  .  X0000  .  A0000  .  TSAR  .  1  .  EXECUTE  .  1)  1  SP=RHR 

//OUT 

DD 

DSN=X . X0000 . A0000 . TSAR . I . EXECUTE ,DISP=OLD 

//SYSUT3 

DD 

UN  I T=TEMP , SPACE= ( TRK , ( 10)1 

/ /SYSUT4 

DD 

UN !T=TEMP , SPACE=(TRK ,(10)) 

//SYSIN 

DD 

COPY  INDI)=PRESS  , OUTDD=OUT 
COPY  1  NDD=  i N  ,  OLTL)L)=OUT 


I 

\ 
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OVKKl.AY  Option  Number  2 

The  second  OVERLAY  option  shown  below  makes  minimal  use  of  overlay 
but  nevertheless  achieves  a  significant  reduction  in  the  core  require¬ 
ment  by  getting  rid  of  the  unneeded  input  and  initialization  subroutines 
and  data  storage,  when  the  simulation  begins. 


/ / LKED .  SYSLMOD  1)1)  l)SN=&VrEMl'0’SAR#UH  )  ,1)  1  SP=tOLI) ,  PASS ) 

/ / EKED . 0LUL1 B  DU  I)SN=X . X0000 . A0000 . TSAR . 1 . EXECUTE ,DISP=SHR 
/ /LKED.SYS1N  DD  * 

ENTRY  MAIN 

I NC LUDE  0LDL1 B  (. TSAR# I # 1 ) 

INSERT  MAIN, TRIALS, MODIFY 
I NSERT  SHPRQT , CKNET , TP  1 ME 
OVERLAY  EERO 

INSERT  1  NIT,  INPUT, CKRQT,  PURGE  1  ,  PURGF.2  ,  PURGE3  ,  L0CAL1 
INSERT  INPUTA, INPUTB, INPUTC, TESTER, ENTRYP 
INSERT  WRAPUP , PS1I0RT 
INSERT  I CHECK, HELPER .CKSPLT 
INSERT  COMPRT , I  PARTS , I PART2 , CKNRTS 
INSERT  I N ITI Z , I NL I  ST , HEADER , AVGTME , RREQTS , REQTS 1 
INSERT  LIST1 , L1ST2 ,  Id  ST3 , LIST4 , LISTS 
OVERLAY  ZERO 

INSERT  MANAGE, ADM IN, PLAN, PLAN  1 .SORT 
I NSERT  SH I  FT ,  REDPEO , CKPEOP , CKA1 S . DOB  1 LD 
INSERT  CONTRL .TIMES , ASSET2 , HELPER , L0CAL3 , L0CAL4 
INSERT  READFT ,  FRAG  ,  SCSI!  I P ,  ADAPT ,  MUNEED  ,CKB  I  LD 
I NSERT  OUTPUT , ASSETS , ACCRIT , BREAK , DELAYS , JOBLST , L0CAL2 
I NSERT  FERRY , GOHOME ,  l’STFLT , RUNAC , I N I TSK , DOTASK , ENDTSK 
INSERT  CHKWX, INCOMP, INIDEF .CANNI B , SCHJOB , SPLIT , CKROOT 
INSERT  RUNSHP , I N I REP , DOREP , ENDREP , SALVAG , REPRTY , NRTS IT 
INSERT  STATUS, CHECK, STRTSK , NORRPT, INTRUP , WAIT, ACWAIT 
INSERT  DISABL, GETPEO , CKCRI T , CKAGE , ADDAGE , CKALRT , RELALT 
INSERT  END  AC  ,  K I  LI.AC  ,  DOSH I  P  ,  SHPRF.S  ,  ORDER  ,  SHC I RF  ,  CKC 1  RF 
INSERT  BSEREP,  INICON, FTIMF, 

INSERT  ZSHOPS , ZNOR , PURGES 
I NSERT  FLYERS , FLIGHT , LAUNCH 

I  NSERT  PREFLT ,  ASS  I GN ,  RF.CNFG  .UPLOAD  ,  REFUEL ,  DOWPRE 
INSERT  BASCAP.REASSG, RESET 

I  NSERT  BOMB  ,  REORGN ,  RE0RG2  ,  PICK.RF.BI  LD  ,  LOSSES  ,  PURGE4 


//SCRATCH 

EXEC 

PGM= I EHPROGM , COND= (4 , LT , STEP2 . FORT) 

//SYSPRINT 

DD 

SYSOUT=A 

/ /DD1 

DD 

DSN=X.XOOOO. AOOOO. TSAR. I . EXECUTE ,DISP=OLD 

//SYSIN 

DD 

.u 

SCRATCH 

DSNAMF,=X  .  X0000  .  AOOOO  .TSAR  .  1  .  EXECUTE  ,  V0L=USER=USER8  1  , 
MEMBER=TSAR#  I  // 1 

//COPY 

EXEC 

PGM= I EBCOPY , REG  I ON=2fiOK , COND= ( 4 , LT , STEP2 . FORT) 

//SYSPRINT 

DD 

SYSOUT=A 

t 
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APPENDIX  H 

SUBROUTINE  FOR  USE  IN  CREATING  COMMON  STATEMENTS 

The  data  set  listed  in  this  section  has  been  created  to  assist  TSAR 
users  in  creating  a  new  set  of  labeled  Common  statements  when  the  TSAR 
simulation  program  is  to  be  redimensioned.  Each  Common  statement  is 
reproduced  here  in  the  exact  form  in  which  it  should  be  stored  for 
retrieval  for  program  compilations,  except  that  each  array  dimension  the 
user  may  change  is  replaced  by  the  variable  name  for  that  dimension. 

The  user  may  create  the  required  Common  statements  by  using  his  system 
editor  to  change  all  appearances  of  each  variable  name  to  the  desired 
value  for  that  variable. 

These  conveniences  are  provided  both  for  systems  with  a  single  cen¬ 
tral  core  and  for  CDC  systems  such  as  the  CYBAR  176  that  have  both  a 
small,  high  speed  core  and  a  larger,  lower  speed  core.  The  second  half 
of  the  data  set  is  for  Common  for  CDC  machines.  The  names  chosen  for 
the  labeled  Common  to  be  placed  in  the  larger,  slower  core  were  created 
by  adding  an  "L"  as  a  prefix  to  the  name  of  the  labeled  Common  from 
which  they  were  derived.  As  will  be  noted,  in  some  cases  the  entire 
labeled  Common  is  to  be  stored  in  the  larger  core;  this  is  done  with  the 
REQTS ,  C PARTS ,  AISCOM,  PURGE  1,  PURGE2 ,  PURGE3 ,  PURGE4 ,  and  PURGE5  Com¬ 
mons  . 

This  data  set  has  been  designed  to  be  used  with  an  editor  that  per¬ 
mits  changes  to  be  made  on  lines  that  have  a  particular  character  in  a 
specified  column.  For  that  reason  the  FORTRAN  comment  marks--i.e.,  "C" 
in  column  l--have  been  retained  to  make  clear  how  that  editing  process 


works . 


The  exemplary  commands  described  below  lor  carrying  out  I  lie  various 
steps  in  this  process  are  appropriate  for  use  on  the  WYLIU.'R  edit  ing  sys¬ 
tem  as  used  on  The  Rand  Corporation's  IBM  370/3033;  the  requirements  for 
achieving  the  equivalent  effects  on  other  operating  systems  should  he 
determined  by  discussions  with  a  system  specialist  for  that  system. 

The  labeled  Commons  are  created  with  statements  such  as: 

CH  'name'  TO  'value'  in  ’  ' 1/1 

that  is,  make  the  change  in  all  lines  that  have  a  blank  in  col  1. 
When  all  the  variable  names  have  been  replaced  with  the 
desired  values,  all  other  lines  are  modified  with  the  statement: 

CH  ' N ' 1/1  TO  ’  ’ 

and  the  ' N '  in  col  1  is  replaced  with  a  blank. 

After  specific  values  have  been  assigned  to  all  array 
dimensions,  it  will  be  necessary  to  fix  an  error  that 
will  have  been  introduced  into  the  name  "SCLRQT"  in 
the  BASIC3  Common  statement. 

Then  each  labeled  Common  should  be  stored  in  the 
partitioned  data  set  created  for  that  purpose  with 
a  command  of  the  type: 

SAV  module. name (common  name)  CARD(10) 

The  necessary  PDS  can  be  created  with  the  WYLBUR  command: 


_*****-'■-  aMBMi 

r 

i 
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TIPS  ALLOCATE  modulo . name  USERxx  RECFM=FB  LRECL=80  BLK=800  TRK  2  1  25 

T1k>  labolod  Common  statomcnts  should  be  created  by  } 

j 

dimensioning  the  arrays  in  the  order  shown  on  the  next 

page.  The  values  listed  here  are  those  used  for  a 

particular  TSAR  load  module  created  in  early  1982. 

-. 

c 

c 

c 

c 

N 

MAXACN  =  400 

N 

MAXB  =  8 

f 

N 

MAXT  =  3 

N 

MAXM  =  4 

C 

1 

C 

NEXT  INSERT  THE  DIMENSIONS  FOR  THE 

1 

c 

DYNAMICALLY  GENERATED  QUEUES  AND  HEAPS. 

1  f 

c 

1 

c 

1 

N 

LTQ  =  1000 

1 

N 

LRQ  =  250 

B  • 

N 

LIQ  =  400 

1 

N 

LWQ  =  2000 

I 

N 

LBQ  =  400 

F 

N 

LLQ  =  600 

■ 

N 

LTHCEQ  =  400 

B  ■ 

N 

LNT  =2500 

K 

N 

LDT  =  4000 

■ 

N 

LNOR  =  2000 

Kl 

N 

LGQ  =  2000 

N 

NJOINT  =  200 

B 

N 

NOCHG  =  100 

K 

N 

NOPKG  =  2500 

K 

N 

NOSHIP  =  400 

N 

LFQ  =  400 

E 

N 

MAXPER  =  160 

1 

C 

NEXT,  ADD  THE  DIMENSIONS  OF  THE  MISCELLANEOUS  DATA  ARRAYS 

f 

N 

NOREPT  =  >0 

B  \ 

\ 

NOCONS  =  200 

B 

N 

NCARGO  =  2500 

B  1 

S 

NOS HP  =  100 

B 

N 

LTHATT  =  40 

I 

N 

NO  ITEM  =  2000 

( 

( 

] 
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1 


N 

N 

N 

N 

C 

N 

C 

N 

C 

C 

c 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

C 

C 

c 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

C 

C 

c 

c 

N 

N 

N 

N 

C 

c 

c 

c 

N 

N 

N 


LTHLST  = 

90 

NOUSER  = 

120 

NLIMBO  = 

1500 

MAXREC  = 

50 

NSCROL  MAY 

NOT  BE 

GREATER 

THAN 

24 

NSCROL  = 

24 

WXDAYS  MAY 

NOT  BE 

GREATER 

THAN 

65 

WXDAYS  = 

65 

DIMENSION  THE  STORAGE  ARRAYS  FOR  THE  VARIOUS  TASK  REQUIREMENTS 

NOTSKA  =  200 

NOTSK  =  1500 
NOREPA  =  200 

NOREP  =  1000 
NOAGER  =  100 

NOSCL  =  30 

NOCONF  =  30 

NOBILD  =  30 

NOCE  =  20 

NOTASK  =  32 

THE  RESOURCE  STORAGE  ARRAYS  ARE  DIMENSIONED  LAST. 


NOCREW  =  800 
NOPEOP  =  200 
NOAGE  =  100 
NOSTAT  =  10 
NOTRAY  =  100 
NOPART  =  1000 
NOPRT  =  1000 
EXTPRT  =  300 
NOMUN  =  25 
NOTRAP  =  25 
NOMATL  =  25 
NOFAC  =  100 


>J.  .L  .U  .UU.U.U.U.  .U-U.l.  .4  .L 

J.  JL  .L  >L.(.  .uuuy 


REAL  *4  SEEDS (10) 

INTEGER  *4  MAXACN , MAXB , MAXT , MAXM , NOTSK, NOTSKA, NOREP .NOREPA, 

X  NOAGER , NOB I LD , NOPEOP , NOAGE , NOPART , NOMUN , NOTRAP , NOMATL , NOSCL , 

X  NOCONF, NOPRT ,LTHLST,NXSEED, 

X  LATERL(  MAXB  ),  PRTCRT(  NOPRT, 2),  RINDEX(4,9) 

**  COMMONS  BASIC1 ,  BASIC2 ,  BASIC3  AND  BASIC4  ARE  INCLUDED  BY  "BASIC" 


COMMON  /BASIC1/  MAXACN, MAXB , MAXT, MAXM, NOTSK, NOTSKA, NOREP, NOREPA, 
X  NOAGER , NOB I LD , NOPEOP , NOAGE , NOPART , NOMUN , NOTRAP , NOMATL , NOSCL , 

X  NOCONF, NOPRT, LTHLST,  NXSEED,  LATERL,  PRTCRT ,  R INDEX 
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C 

c 


c 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 


C 

C 

c 

c 

c 

c 


c 

c 

c 

N 

N 

N 

N 

N 

N 

N 

C 

C 

c 


*********  KEY  CONTROL  VARIABLES  ********** 

COMMON  /  BAS1C2  /  NOW,  HOUR,  NBASE ,  NTYPE ,  NPART,  CREWS, 

X  SIMLTH,  EXTEND,  NTRIAL,  ITRIAL,  PRINT,  STATFQ ,  CUMSTA,  OVKRFL, 

X  TSAR,  EIXAGE ,  BUILD,  AIDA,  DAMODE,  NOSAVE,  ESALVG, 

X  TEST,  XTEST,  SEED,  VERIFY,  IDAY,  NOUSER,  NONUNI,  DOWNTM,  CANSRU, 
X  SCROLL,  NSCROL ,  SCROL1 ,  SCROL2 ,  TOOFEW,  KILOW,  K2LOW, 

X  SLEEP,  REST,  NOCREW,  NPILOT,  MAXFLT ,  MAXPER,  MULTI,  CANFLT, 

X  NOPOMO  , ORD IT , ORDWT , CMODE  , NOFUEL , CC I RF , CTHF.A ,  SHOPRY  , CIRFLG, 

X  UNCER,  CONSIG,  TODOCK,  ADAPTR ,  SHPREP,  SEEKSH ,  NRTPOL,  PROTME , 

X  OPSBSE ,  EMERG,  POSTPN,  CONCUR,  LTHDEF ,  ALF.RTR,  DELYPF,  OVERTM, 

X  JOBCON,  FILLAC,  FLEVEL,  MNTLMT ,  MNTF ,  MNTR ,  QUIK,  RPARTS , MAXMNT, 
X  NEWPRT ,  ZNORS ,  LOSTAC ,  MAXTME , 

X  CANMOD,  CANMUL,  CANCAN,  DOCANN,  MXHOLE ,  CDELAY , 

X  MAXREC , WXDAYS , TP LAN , NEXT I N , NEXTSC , ENDAY , LOADTM , LSTTOD , DMDLMT , 

X  SPARE  1 , SPARE2 , SPARE 3 , SPARE4 , SPARES , SPARE6 , SPARE 7 , SPARE8 , SPARE9 , 

X  HURRY (MAXB ,5,2),  REDUCE (MAXB ,5,2),  SAVE(MAXB ,5,2), 

X  WHEN2 ,  HPEOl ,  HPE02 ,  AVGTT,  LANDNG(MAXB) ,  AIDALT(MAXT) , 

X  FILLER(MAXT, 2) ,  CKFILL(MAXT) ,  PERIOD(20 , 3) ,  REFILL(2,9), 

X  NOR (MAXB) ,  NORHRS(MAXB) , ALTPEO(NOPEOP , 3) , ALTAGE (NOAGE , 3 ) , 

X  CTPEOP (NOPEOP , 5 ) ,  AQPEOP(NOPEOP , 5) ,  CTPEO(NOPEOP) , 

X  RECORD (NSCROL, 3, MAXREC) 


AIRCRAFT,  CREW  AND  FLIGHT  RELATED  ARRAYS  ********** 


COMMON  /  BASIC3  /ACN(MAXACN,40) ,  ACDATA ( 30 , MAXT) ,  MXTASK(9), 
X  ACMDTA ( 20 , MAXM , MAXT) ,  BASES (50, MAXB) ,  WXDATA (WXDAYS , 2 , MAXB ) , 
X  PILOT(5, NOCREW) ,  PILOTS(5 , MAXT, MAXB) ,  FLTRQT(LFQ, 10) , 

X  PRDFLT(MAXPER,5) ,  SVEFLT(  12 , 5 ) ,  TEMPF(  50,-*),  FTAXI  (2 , MAXB) , 

X  SCLP ( 5 , MAXM , MAXT , 2 ) ,  SCLRQT(NOSCL,9) ,  TCONF (MAXM, MAXM, MAXT ) , 

X  SEEDED(IO), 


***** 


QUEUE  AND  HEAP  CONTROL  VARIABLES 


««.  .U  .t.  .U  JU  «t. 


X  LTQ, NET, FET, LET, OVERT,  LRQ , NER , FER , LER , OVERR ,  OVERK, 

X  LIQ.NEI ,FEI ,LEI , OVER I ,  LWQ , NEW , FEW , LEW , OVERW , 

X  LNT , NEN , FEN , LEN , OVERN , NOLD ,  LDT , NED , FED , LED , OVERD , DOLD , 

X  LNOR , NEO , FEO , LEO , OVERO ,  LFQ , NEF , FEF , LEF , OVERF ,  EF,  LF, 

X  LBQ , NEB , FEB , LEB , OVERB ,  LLQ , NEL , FEL , LEL , OVERL ,  NEH, 

X  LGQ , NEG , FEG , LEG , OVERG ,  NJOINT,NEJ,FEJ,LEJ,OVERJ,  OVERM, 

X  NLIMBO ,NEX ,FEX , LEX ,QVERX ,  NOCHG,NEV,FEV,LEV,OVERV, 


********** 


QUEUE  AND  HEAP  STORAGE  ARRAYS 


********** 


X  TASKQC  LTQ, 16), 

X  INTTSK(  LIQ , 10) , 

X  N0RQ(LN0R,3) , 

X  LIMBO(NLIMBO , 6) , 


REPQ(  LRQ, 11), 
WAITSK(  LWQ, 13), 
RQDTSK (  LNT,  2), 
CANNTM (  NOPART), 


BUILDQ(LBQ, 10) , 
BACKLG(5 ,  LLQ), 
DEFTSK(  LDT , 4 ) , 
RESUPP(  LGQ, 5), 


1 


n 
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X  REJ0IN(NJ01NT,2) ,  CHANGE (SOCHG, 5) 


BLOCK  DATA 


COMMON  /  BASIC4  /  SEEDS,  TSKCRT(99  ,  5  )  ,  KEL1MPC  33 ,  5  ) 


COMMON  /  STOCKS  /SHOPS (26 , 30 ,MAXB) ,  PEOPLE ( NOPEOP , 7 ,MAXB ) , 
AGESTK (NOAGE , 3 , MAXB ) , PARTS (NOPART , 5 , MAXB ) , MUNSTK ( NOMUN , 4 , MAXB ) , 
TRAP (NOTRAP, MAXB) ,  MATER L(NOMATL, MAXB ) ,  POI.STK(MAXB) , 

BORROW (NOUSER, 2) ,  DEPOT1 (NOPEOP) ,  DEPOT2 (NOAGE ) , 

DEPOT3  (NOPART)  .  DEPOT4 (NOMUN)  ,  DF.POT5  (NOTRAP)  ,  DEPOT6  ( NOMATI. )  , 


X  DEPOT7 ,  DEPOT8 (MAXT) 


COMMON  /  LOAD  /  CONFIG(NOCONF,8) ,  ACA ( 3 , MAXM , MAXT , MAXB ) , 
X  ALERT (6, MAXM, MAXT, MAXB),  PTZ (MAXM, MAXT, MAXB ) , 

X  SPARE (2, MAXM, MAXT, MAXB ) ,  SORDEF (16,3, MAXM , MAXT , MAXB ) 


INTEGER  *4  NOTASK 

COMMON  /JOBS/  NOTASK,  IGNORE,  VBREAK ,  EXPED,  ZSHOP, 

X  SHP0RD(50, MAXT, MAXB) ,  SHPTSK(3, NOTASK, 25 , MAXT) , 

X  ZTASKS ( 5 , MAXT , MAXB ) ,  TSKPR ( 25 , MAXT , 3 ) ,  TSKRQT(NOTSK ,15), 
X  TSKALT(NOTSKA,5)  ,  REPRQT(NORF,P  ,  8) ,  REPALT(N0REPA,4)  , 

X  AGEREP(NOAGER , 6 ) ,  MUNRQT(4,N0BILD) ,  LISTIN(LTHI.ST) , 

X  PRTLST(NOPRT) ,  ROOTS (NOPART, MAXT) ,  CIRFTM(24), 

X  ADELAY(24,2 ,MAXB) ,  AVGP(3 ,30 ,MAXB) ,  JOBDTA ( 20 , 2) 


COMMON  /  THEATR  /  ORDER  1 .ORDER2 ,  C4TM.C41NT,  FD.LD,  FA, LA, 
TCONUS ,  NCONUS ,  NOCONS ,  NCARGO,  NOSHP,  NESHP ,  INDEX, 

NXSCH ,  NES,  FES,  LES,  OVERS,  NOSH  IP, 

NOPKG ,  PKGTM ,  NEP,  FEP,  LEP,  OVERP,  OVERA, 

SH I PTO ( MAXB ,20,2) ,  SH 1 PSC (NOSHP , 3 ) ,  SH 1 P (NOSH  1 P , 7 ) , 

SH I PQ ( NOPKG , 3 ) ,  AVGSHP(MAXB) ,  SHPT(MAXB .MAXB , 3 ) , 

SH I PTM ( MAXB , MAXB , 3 ) ,  CONUS (NOCONS ,2) ,  CARGO (NCARGO, 2) 


COMMON  /BOMBSK/  FKAOJB ( NOFAC ) , 

NOFAC  ,  MXFAC  ,  NOA'IT ,  LTHA  I  F  ,  NO  1 TEM  , 


o  z 
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N 


c 

c 

c 


c 

N 

N 


C 


C 

c 

c 

c 

c 

N 

N 

c 


c 

c 

c 

c 

N 

c 


N 

C 

c 

c 

c 


X  LTIICEQ ,  NijCE  ,  NEC  ,  F EC  ,  LEG,  OVERC  ,  CEWORK,  CEPEO,  CEAGE  ,  CRBI.DG, 

X  ATK  1  SK  ,  CEDF.LY  ,  SUPPLY  ,  A’lTlJI.Y  ( 2  ,  MAXB  )  ,  ATTACK  ( I  .Til  ATT ,  5  )  , 

X  DAMAGE  (NO  ITEM,  2)  ,  GEPRTY  (NOFAC)  ,  FACUAM  (NOFAC  ,  6  )  , 

X  FACI.TY  (  7  .NOFAC , MAXB  )  .CERQTS  (8  ,  NOCE  )  ,  CEJOBQ  ( LTIICEQ  .  9  ) 


INTEGER  *4  NORF.PT 

COMMON  /  INFO  /  NORF.PT,  NORPT,  OLDATA,  NEWDTA, 

X  REPORT(NORF.PT  ,4 )  ,  XM1T(4  .MAXB )  ,  PEORPT(2  .NOPF.OP  ,  MAXB  )  , 


X  AGERPT(NOAGE.MAXB) ,  PRTRPT(4 .NOPART, MAXB ) 


INTEGER  *4  OUTSHP,  OUTPER,  OUTAGE,  OUTPRT,  OUTMUN . 

X  OUTTRP ,  OUTMAT,  OUTPOL,  OUTFAC ,  OLTPT3  ,  OLTPT4 ,  Ol'TPTS 

COMMON/  OUT  /  AVGTSK(25 ,MAXT) ,  AVGREP ( 2 S , MAXT ) , 

X  XSTATO 0,30, MAXB)  ,XXSTAT(  10 , 30), 

X0UTPT4 (2,30, MAXM , MAXB )  , OUTPER ( 2  , NOPF.OP  , MAXB  )  .OUTAGE  (  2  ,  NOAGF. ,  MAXB  !  , 
X  OUTPRT (2, NOPART, MAXB ) ,  OUTMUN ( 2 , NOMUN , MAXB ) , 

X  OUTTRP (2, NOTRAP, MAXB ) ,  OUTMAT (2, NOMATE, MAXB ) , 

X  OUTPOL (2, MAXB),  OUTFAC (2,30, MAXB ) ,  OUTSHP ( 9 , 30, MAXB ) , 

X  OUTPT5 (3,30, MAXB ) ,  0UTPT3 ( 2 , MAXM , MAXT , MAXB ) , 

X  OUTPT 1(5, 6. MAXM, MAXT, MAXB ) , 

X  OUTPT2 (3,3,25, MAXB ) ,  CANCEL! 5 , MAXT, MAXB) ,  SORTER ( 24 , MAXB ) , 

X  BSOR(MAXB) ,  CUMSOR 


INTEGER  *4  PEORQT,  AGERQT 

COMMON/  REQTS  /  PEORQT  ( NOPEOP ,  MAXM ,  MAXT) ,  AGERQT  (NOAGF.,  MAXM,  MAXT) 
X  SHOPRQ (30, MAXM, MAXT ) ,  PARTRQ (NOPART, MAXT) , 

X  MUNRQD (NOMUN, MAXM, MAXT) ,  TRAPRQ( 2 , 3 , MAXT) , 

X  CANFLY( 3, MAXM, MAXT, MAXB), 

X  SORCAP (MAXT, MAXB) ,  TRYFLY (  6 , MAXT, MAXB) , 

X  STATE,  SELECT,  MULTI  1,  MULTI 2 


.1.  _ • _ * _ i. 


-U  -I-  JU  JU  - 1 U  -L.  .9  .1.  J.  .1.  .tj. J.  J.  .  t .  -t-  .L  J.  J-  -<J.  .U,  J.  J.  J.  *V  ',v  V*  *V  *jV  *V 

V*  »V *V*V*V VwV ’V'VtV *V*V *V  »V*V *V'V*V *V “V^ViViV  «Y  «v 


COMMON  /  CPARTS  /  BPARTS ( 15 , MAXT, MAXB) ,  POLICY(NOPART,MAXB ,2) , 
X  OUTFIT , PMODE , PPR I NT , I  SHORT , NOP I  PE , H I ATUS , RANDM , CHNRTS 


C 

N 


COMMON  /  AISCOM  /  NOSTAT,  NOTRAY, 


XXX 
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c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

N 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

N 

c 

c 

c 


A I SDTA (NOSTAT , 5 ) ,  NSTAT ( NOSTAT , 2 , MAXB ) , 
A I SUSE (NOSTAT , 6 , MAXB ) ,TRAY (NOPART) , 
TRAYS ( NOTRAY ) ,  TRAYST ( NOTRAY , 2 , MAXB ) 


. V*  «V  «V  <VV?V?*V*V?V  «V  «V  «V  Vc«V  «V  «V  «V*«V  <V*'wV  #Y“V“V  »W"V?  *V  «V  V***-**'  -■ .i. 


COMMON  /  PURGE  1  /  COSTS (NOPART) ,  PRTRQ (NOPART, 2 ,MAXT) , 

X  OFFBSE (2 ,50,2 ,MAXT) ,MAX0FF(2 ,MAXT) ,  J0BPR(2 ,MAXT) ,  ITEMS (MAXB) , 
X  TPART ( EXTPRT , 3 , MAXB ) 


-u.'-  -t-.i 


U  .y  -i.  .y  jy  .1.  .y , 


COMMON  /  PURGE2  /  OFFMOB (NOPART , MAXT) ,  OFFCOB (NOPART , MAXT) , 
X  GTLMT(NOPART) 


REAL  *4  I PI PE ,  INPIPE,  FRACBS ,  CSTOCK,  SHORT 


COMMON  /  PURGE3  /  TOTALS (NOPART, MAXB ,3) ,  TOCIRF (NOPART, 2) , 

X  I  PI  PE (NOPART, 2) ,  INPIPE (NOPART, MAXB ,2) ,  FRACBS (NOPART, MAXB) , 
X  CSTOCK (NOPART, 2) , SHORT (NOPART) , SRFRAC (MAXB , 2 ) ,CHCKED (NOPART) 


.  -U  .1.  .I..!..'. 


■** 


** 


THE  PURGE4  COMMON  IS  ONLY  USED  LOCALLY  IN  SUBROUTINES  BOMB 
AND  REORGN  BUT  IS  TREATED  AS  COMMON  SO  THAT  IT  WILL  BE 
REDIMENSIONED  AS  REQUIRED.  IT  NEED  NOT  BE  ZEROED  NOR  STORED. 

COMMON  /  PURGE4  /  STAFF(NOPEOP , 2) ,  SICK(NOPEOP) .SHOPEO(NOPEOP) , 
X  SHOPAG(NOAGE) 


THE  PURGE5  COMMON  IS  ONLY  USED  LOCALLY  IN  SUBROUTINE  ZSHOPS 
BUT  IS  TREATED  AS  COMMON  SO  THAT  IT  WILL  BE  REDIMENSIONED 
AS  REQUIRED.  IT  NEED  NOT  BE  ZEROED  NOR  STORED. 

INTEGER  *4  Z PRTRQ 

COMMON  /  PURGE5  /  ZPRTRQ(NOPART) 


*.  J. 


c 

c 


c 


C0MM0N/TESTS/TTRIAL.TEST1 ,START(6) ,ST0P(6) 


no  nozzzzzzooo 
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EQUIVALENCE  (Z 1 ( 1 ) .MAXACN) ,  (Z2( 1 ) ,  ACN( 1,1)),  (Z3 ( 1 ), SEEDS ( 1 )) , 

X  (Z4 ( 1 ) , SHOPS (1,1,1)),  ( Z  5 ( 1 ) , CONE  I G ( 1 , 1 ) ) ,  (26 ( 1 ) .NOTASK) , 

X  ( Z 7 ( 1 ) , ORDER 1 ) ,  (Z8 ( 1 ) , FRACJB ( 1 ) ) ,  (Z9 ( 1 ) , NOREPT) , 

X  ( Z 1 0  ( 1 ) , AVGTSK (1,1)),  ( Z 1 1  (  1 )  , PEORQT (1,1,1)), 

X  ( Z 1 2 ( 1 ) , BPARTS (1,1,1)),  (Z13(l) .NOSTAT) ,  ( Z 14 ( 1 ) , TTRIAL) , 

X  ( Z 1 5 ( 1 ) , COSTS ( 1 ) ) ,  ( Z 1 6 ( 1 ) , OFFMOB (1,1)),  ( Z 1 7 ( 1 ) .TOTALS ( 1 , 1 , 1 ) ) 


.U.U  .L.  .U.t.  »y . 


.  .UL  -*--y..y»y  .  y  -I.  -u 


The  exemplary  Common  listed  below  was 
developed  for  use  on  a  CDC  CYBAR  176. 


0  ***** 
C  ***** 


«y  -y  .u  -y  .y -y 
.• .  »y  -y  -y  -y  »y  .y  .y  .y  jy  -y 


y  .  y  .y  «y  .  y  .  y  .y  .  y  .  y  -  y  .y  -  y  .  y  -y  -  y  .  y .  y  .y .  y  .y  »y  .y -y  -y.y.y  .  y  .y  -y  .y  -y -y -y  .  y  .y  .  y  .y  -y  .y.y 
y.y.y.y.y.y.y.y.y-y-y.y.y.y.y.y.y.y.y-y-y.y.y-y.y.y-y.y.y^y-y-y.y.y.y.y.y.y.y^y 


* COM DECK  BASIC 
C 

N  REAL  *4  SEEDS (10) 

N  INTEGER  *4  MAXACN, MAXB,MAXT,MAXM,NOTSK,NOTSKA, NOREP, NOREPA, 

N  X  NO AGER , NOB I LD .NOPEOP , NOAGE .NOPART ,NOMDN , NOTRAP , NOMATL , NOSCL , 

N  X  NOCONF , NOPRT , LTHLST , NXSEED , R I NDEX (4,9), 

X  LATERL(MAXB) ,PRTCRT(N0PRT,2) 


C 

c 

c 

c 

N 

N 

N 

C 

c 

c 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 


**  COMMONS  BASIC1,  BASIC2 ,  BASIC3  AND  BASIC4  ARE  INCLUDED  BY  "BASIC" 


COMMON  / BAS IC 1 /  MAXACN , MAXB , MAXT , MAXM , NOTSK , NOTSKA , NOREP , NOREPA , 
X  NOAGER , NOB ILD , NOPEOP , NOAGE , NOPART , NOMUN , NOTRAP , NOMATL , NOSCL , 

X  NOCONF, NOPRT, LTHLST,  NXSEED,  R I NDEX,  LATERL 


«y  wy  -y  -y  -y  «y.y»y.y-y 


KEY  CONTROL  VARIABLES 


-y>y.y. 


.^y.y.y«y 


COMMON  /  BASIC2  /  NOW,  HOUR,  NBASE ,  NTYPE ,  NPART,  CREWS, 

X  SIMLTH ,  EXTEND,  NTRIAL,  I TRIAL,  PRINT,  STATFQ,  CUMSTA,  OVERFL, 

X  TSAR,  FIXAGE,  BUILD,  AIDA,  DAMODE,  NOSAVE,  FSALVG , 

X  TEST,  XTEST ,  SEED,  VERIFY,  1DAY ,  NOUSER,  NONUNI,  DOWNTM ,  CANSRU, 
X  SCROLL,  NSCROL,  SCR0L1,  SCR0L2 ,  TOOFEW ,  K1L0W,  K2L0W , 

X  SLEEP,  REST,  NOCREW,  NPILOT,  MAXFLT ,  MAXPER,  MULTI,  CANFLT , 

X  NOPOMO , ORDIT , ORDWT , CMODE , NOFUEL , CC I RF , CTHEA , SHOPRY , CIRFLG , 

X  UNCER,  CONSIG,  TODOCK,  ADAPTR ,  SHPREP,  SEEKSH,  NRTPOL,  PROTME , 

X  OPSBSE ,  EMERG,  POSTPN,  CONCUR,  LTHDEF ,  ALERTR ,  DELYPF ,  OVERTM , 

X  JOBCON,  FILLAC,  FLEVEL,  MNTLMT ,  MNTF,  MNTR ,  QUIK,  R PARTS .MAXMNT , 
X  NEWPRT,  ZNORS ,  LOSTAC,  MAXTME , 

X  CANMOD,  CANMUL,  CANCAN,  DOCANN,  MXHOLE ,  CDELAY, 

X  MAXREC , WXDAYS .TPLAN , NEXTIN , NEXTSC , ENDAY , LOADTM , LSTTOD , DMDLMT , 
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N 


C 

C 

c 

c 

c 

c 


c 

c 

c 

N 

N 

N 

N 

N 

N 

N 

C 

C 

c 


c 

c 

c 

N 

c 

N 

C 


c 

c 

c 


X  SPARE  1  ,SPARE2,SPARE3,SPARE4,SPARE5  ,  SPARF.b  .SPARE7  ,  SPARKS,  SPAKE9  , 
X  HURRY (MAXB, 5,2),  REDUCE (MAXB, 5,2 ) .  SAVE (MAXB , 5 , 2 ) , 

X  WHEN2 ,  HPEOl,  HPE02 ,  AVCTT,  LANl)NG(MAXB)  ,  AIl)ALT(MAXT)  , 

X  F I LLER ( MAXT , 2 ) ,  CKF ILL (MAXT) ,  PERI0D(20,3) ,  REFILL(2,9) , 

X  NOR (MAXB) ,  NORHRS(MAXB) , ALTPEO ( NOPEOP , 3 ) , AETAGE ( NOAGE , 3 ) , 

X  RECORD (NSCROL, 3, MAXREC) 


AIRCRAFT,  CREW  AND  FLIGHT  RELATED  ARRAYS 


COMMON  /  BASIC3  /  ACN(MAXACN,40) ,  ACDATA ( 30 , MAXT ) , 

X  MXTASK(9),  ACMDTA ( 20 , MAXM , MAXT) ,  BASES ( 50 , MAXB) , 

X  PIL0T(5 .NOCREW) ,  PILOTS(5 , MAXT, MAXB) ,  FLTRQT(LFQ, 10) , 

X  SVEFLT (12,5),  TEMPF (  50,4),  FT AX I (2, MAXB) , 

X  SCLP ( 5 , MAXM , MAXT , 2 ) ,  SCLRQT(NOSCL , 9 ) ,  TCONF (MAXM, MAXM, MAXT ) , 

X  SEEDED(IO), 


QUEUE  AND  HEAP  CONTROL  VARIABLES 


X  LTQ, NET, FET, LET, OVERT, 

X  L I Q , NE I , FE I , LE I , OVER I , 

X  LNT , NEN , FEN , LEN , OVERN , NOLD , 

X  LNOR , NEO , FEO , LEO , OVERO , 

X  LBQ , NEB , FEB , LEB , OVERB , 

X  LGQ , NEG , FEG , LEG , OVERG 

X  NLIMBO , NEX , FEX , LEX , OVERX 


LRQ , NER , FER , LER , OVERR ,  OVERK, 
LWQ , NEW , FEW , LEW , OVERW , 

LDT , NED , FED , LED , OVERD , DOLD , 

LFQ , NEF , FEF , LEF , OVERF ,  EF,  LF, 
LLQ , NEL , FEL , LEL , OVERL ,  NEH, 

N JO I NT , NE J , FE J , LE J , OVER J ,  OVERM, 

NOCHG , NEV , FEV , LEV , OVERV , 


QUEUE  AND  HEAP  STORAGE  ARRAYS 


** 


X  TASKQ(  LTQ, 16), 

X  INTTSK(  LIQ.10), 

X  NORQ(LNOR, 3) , 

X  LIMB0(NLIMB0,6) , 

X  REJ0IN(NJ0INT,2) , 


REPQ(  LRQ, 11), 
WAITSK(  LWQ, 13), 
RQDTSK(  LNT,  2), 
CANNTM(  NOPART), 
CHANGE (NOCHG, 5) 


BUILDQfLBQ, 10) , 
BACKLG(5 ,  LLQ), 
DEFTSK(  LDT, 4), 
RESUPP(  LGQ , 5 ) , 


***********  BLOCK  DATA 


COMMON  /  BASIC4  /  SEEDS,  TSKCRT(99 ,5) ,  RELIMP(33,5) 
LEVEL  2 , LBASIC 

COMMON  /  LBASIC  /  PRTCRT(  N0PRT,2),  CTPEOP( NOPEOP, 5) , 

X  AQPEOP (NOPEOP, 5) ,  CTPEO(NOPEOP) ,  WXDATA(WXDAYS , 2 , MAXB) , 

X  PRDFLT(MAXPER , 5 ) 


************************************************************* 

************************************************************* 


aaLajaai 


z  z  n  n  n  n  n  z  n  z  o  z  n 
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■COMDECK  STOCKS 
C 
C 

COMMON  /  STOCKS  /SHOPS (26 , 30 ,MAXB) ,  PEOPLE (N0PE0P, 7 , MAXB) , 

X  AGESTK( NOAGE , 3 ,  MAXB ) , PARTS (NOPART , 5 ,MAXB ) , MCNSTK (NOMUN , 4 ,MAXB) , 
X  TRAP ( NOTRAP , MAXB ) ,  MATERL(NOMATL.MAXB) .  POLSTK(MAXB) , 

X  BORROW (NOUSER, 2), 

X  DEPOT 7 ,  DEP0T8 (MAXT) 

C 

N  LEVEL  2 , LSTOCK 

C 

COMMON  /  LSTOCK  /  DEPOT 1 (NOPEOP) ,  DEP0T2 (NOAGE ) , 

X  DEPOT 3 (NO PART) ,  DEP0T4(N0MUN) ,  DEPOTS (NOTRAP ) ,  DEP0T6 (NOMATL) 

C 


-•'-COMDECK  LOAD 
C 


COMMON  /  LOAD  /  CONFIG  (N'OCONF  ,  8)  ,  AC  A  (  3  ,  MAXM ,  MAXT ,  MAXB  )  , 
X  ALERT ( 6 , MAXM , MAXT , MAXB ) ,  PTZ ( MAXM , MAXT , MAXB ) , 

X  SPARE (2, MAXM, MAXT, MAXB) ,  SORDEF( 16 , 3 .MAXM , MAXT, MAXB) 


•-COMDECK  JOBS 

INTEGER  *4  NOTASK 

COMMON  /JOBS/  NOTASK,  IGNORE,  VBREAK,  EXPED,  ZSHOP, 
X  SHPORI)  (50,  MAXT,  MAXB  )  ,  SHPTSK(3  .NOTASK ,  25  , MAXT) , 

X  TSKPR(25 , MAXT, 3) ,  TSKRQT(NOTSK, 15) , 

X  REPRQT(N0REP,8) , 

X  AGEREP (NOAGER , 6) ,  MUNRQT ( 4 , NOB  I LD ) , 

X  ADEI.AY (24,2 ,MAXB) ,  AVGP( 3 , 30 ,MAXB) ,  J0BDTA(20,2) 

LEVEL  2.LJ0BS 


COMMON  /  LJOBS  /  ZTASKS ( 5 , MAXT , MAXB ) ,  TSKALT (NOTSKA , 5 ) , 
X  REPALT(N0REPA,4) ,  LISTIN(LTHLST) , 

X  PRTLST(NOPRT) ,  ROOTS (NOPART, MAXT) ,  CIRFTM(24) 


COMDECK  THEATR 

COMMON  /  THEATR  /  ORDER  1 ,0R1)ER2 ,  C4TM.C41NT,  FD.LD,  FA , LA , 
X  TCONUS ,  NCONUS ,  NOCONS ,  NCARGO,  NOSHP,  NESHP ,  INDEX, 

N  X  NXSCH ,  NES,  FES.  LES,  OVERS,  NOSHIP, 

N  X  NOPKG,  PKGTM ,  NEP,  FF.P,  LEP,  OVERP,  OVERA, 

X  SHIP (NOSH  IP, 7) 

LEVEL  2 , LTHEAT 

COMMON  /  LTHEAT  /  SH I PTO (MAXB ,20,2) ,  SH I PSC ( NOSHP , 3) , 

X  SH I PQ( NOPKG , 3) ,  AVGSHP ( MAXB  )  ,  SHPTl MAXB .MAXB , 3 )  , 


C 

N 

0 


nzo  ozzo  Jnnn  nzo  z  n  z  o  o  n  o  nzo  z  z  o  ;<■  o  o 
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X  SHI  PTM  (.  MAXB  ,  MAXB  ,  3  )  ,  CONI'S  (NOCONS  ,  2  )  ,  CAKG0(NCARG0,2) 
C 


30MDECK  BOMBSE 

COMMON  /BOMBSE/  NOFAC ,  MX FAC ,  NOATT , LTHATT , NO ITEM , LTHCEQ , NUCE , 

X  NEC,  FEC,  LEC,  OVERC,  CEWORK,  CEPEO,  CEAGE ,  CRBLDG ,  ATRISK, 

X  CEDELY,  SHPDLY ,  ATTDLY ( 2 , MAXB ), ATTACK ( LTHATT , 5 ) , 

X  CF.JOBQC  LTHCEQ,  9) 

LEVEL  2.LBOMB 

COMMON  /  LBOMB  /  FRACJB (NOFAC) , DAMAGE (NO ITEM , 2 ) .CEPRTY (NOFAC) , 
X  FACDAM(NOFAC,6) ,  FACI,TY(7 .NOFAC ,MAXB) ,  CERQTS (8 ,NOCE) 


30MDECK  INFO 


INTEGER  *4  NOREPT 

COMMON  /  INFO  /  NOREPT, NORPT, OLDATA .NEWDTA, 

X  REPORT (NOREPT ,4) 

LEVEL  2 , LINFO 

COMMON  /  LINFO  /  XMIT(4 ,MAXB) ,  PEORPT ( 2 , NOPEOP , MAXB ) , 

X  AGERPT (NOAGE, MAXB ) ,  PRTRPT (4 .NOPART, MAXB) 


V?  Vt  V?  iV  V?  “V  (V  *  V  %V  iV  iV  *,V  V?  V?  V?  "V 1 

COMDECK  OUT 


,  .U  -U  wL  .k  .Jj.  J.  .1.  .U  .I.  ,L  .L  .  .1,  .L 


INTEGER  *4  OUTSHP,  OUTPER ,  OUTAGE,  OUTPRT,  OUTMUN, 

X  OUTTRP,  OUTMAT,  OUTPOL,  OUTFAC,  OUTPT3 ,  0UTFT4 ,  OUTPT5 

COMMON  /  OUT  /  AVGTSK(25,MAXT),  AVGREP(25 ,MAXT) , 

X  CANCEL( 5 ,MAXT,MAXB) ,  SORTHR ( 24 , MAXB ) ,  BSOR(MAXB) ,  CUMSOR 

LEVEL  2, LOUT 

COMMON  /  LOUT  /  0UTPT4(  2 , 30 ,MAXM ,MAXB) , 

X  XSTAT(10 , 30 , MAXB) ,XXSTAT(10,30) , 

X  OUTPER (2, NOPEOP, MAXB),  OUTAGE (2 , NOAGE , MAXB) , 

X  OUTPRT (2, NOPART, MAXB),  OUTMUN ( 2 , NOMUN , MAXB ) , 

X  OUTTRP ( 2 , NOTRAP , MAXB ) ,  OUTMAT ( 2 , NOMATL , MAXB ) , 

X  OUTPOL (2, MAXB ) ,  OUTFAC (2 , 30 , MAXB) ,  OUTSHP (9 , 30 , MAXB) , 

X  OUTPT5 (3 , 30 , MAXB) ,  OUTPT3(2,MAXM,MAXT,MAXB) , 

X  0UTPT1(5 , 6 , MAXM , MAXT , MAXB ) , 

X  OUTPT2 (3,3,25, MAXB ) 
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C  ********************************; 

••'•COMDECK  KF.QTS 
C 

S  INTEGER  *4  PEORQT,  AGERQT 

C 

N  LEVEL  2  ,  REQTS 

C 


N 

C 

C 

C 


COMMON/  REQTS  / PEORQT ( NOPEOP , MAXM , MAXT ) .AGERQT (NOAGE , MAXM , MAXT) 
X  SHOPRQ (30, MAXM, MAXT) ,  P ARTRQ( NO PART, MAXT ) , 

X  Ml'NRQD ( NOME’S  ,  MAXM ,  MAXT)  ,  TRAPRQ  (2,3,  MAXT)  , 

X  CANFLY ( 3 , MAXM , MAXT , MAXB ) , 

X  SORCAP (MAXT, MAXB ) ,  TRYFLY (  6 , MAXT, MAXB) , 

X  STATE,  SELECT,  MULTI  1,  MULT 1 2 


••COMDECK  C PARTS 
C 

N  LEVEL  2, C PARTS 

C 

COMMON  /  CPARTS  /  BPARTS ( 15 .MAXT , MAXB) , OUTFIT , 

N  X  PMODE , PPRI NT , I  SHORT, NOP I  PE .HIATUS ,RANDM .CHNRTS 

C 


C 


_ 1 _ i. 


i~*— .u  .U-U 


•-'■COMDECK  AISCOM 
C 

N  LEVEL  2, AISCOM 

C 

N  COMMON  /  AISCOM  /  NOSTAT,  NOTRAY, 

X  AISDTA(N0STAT,5) ,  NSTAT (NOSTAT , 2 ,MAXB) , 

X  AISUSE(N0STAT,6 ,MAXB) ,TRAY (NOPART) , 

X  TRAYS (NOTRAY) ,  TRAYST(NOTRAY , 2 , MAXB) 

C 


C 


•***■ 


-'fJ-  . 


■•COMDECK  PURGE  1 


C 

N 

C 


C 

c 

c 


LEVEL  2, PURGE  1 

COMMON  /  PURGE  1  /  COSTS (NOPART) ,  PRTRQ ( NOP ART , 2 , MAXT ) , 

X  OFFBSE (2,50,2 ,MAXT) ,MAX0FF(2 , MAXT) ,  J0BPR(2 ,MAXT) ,  ITEMS (MAXB) 
X  TPART ( EXTPRT , 3 , MAXB ) 

************************************************************* 

-y«*r  V*  V?  *  VVf  *V  »V  Vr  Vr  V»  iV  VrVfVrVr/VVf^V^ViVrf  #V*V"V*VVr^V*V*VrriV*V*V^»V  *V  ^  *V  #V  Vr  *  V  «V  #V 


*COMDECK  PURGE 2 


C 

N  LEVEL  2.PURGE2 

C 

COMMON  /  PURGE 2  /  OFFMOB (NOPART, MAXT) ,  OFFCOB (NOPART, MAXT) , 
X  GTLMT( NOPART) 


no  noon  ozocjoooznsona  oanaozo::-non  a  z 
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"COMDECK  PURGE3 
C 

N  LEVEL  2, PURGE 3 

C 

REAL  *4  I P 1  PE  ,  INPIPE,  FRACBS,  CSTOCK,  SHORT 

COMMON  /  PURGE  3  /  TOTALS  (NOPART,  MAXB  ,  3)  ,  TOCIRF( NOPAHT, 2 ) , 

X  I  PI  PE (NOP ART, 2) ,  1NP I  PE (NOP ART, MAXB . 2 ) ,  FRACBS (. NOPART, MAXB ) , 

X  CSTOCK (NOPART, 2),  SHORT ( NOPAHT ) ,  POLICY! NOPART, MAXB , 2 ) , 

X  SRFRAC (MAXB , 2) ,  CHCKED( NOPART) 


30MDECK  PURGE4 


LEVEL  2 , PURGE4 


THE  PURGE4  COMMON  IS  ONLY  USED  LOCALLY  IN  SUBROUTINES  BOMB 
AND  REORGN  BUT  IS  TREATED  AS  COMMON  SO  THAT  IT  WILL  BE 
REDIMENSIONED  AS  REQUIRED.  IT  NEED  NOT  BE  ZEROED  NOR  STORED. 

COMMON  /  PURGE4  /  STAFF(NOPEOP,2) ,  S I CK (NOPEOP ) , SHOPEO (NOI'EOP ) 
X  SHOPAG(NOAGE) 


COMDECK  PURGES 

LEVEL  2, PURGES 

THE  PURGES  COMMON  IS  ONLY  USED  LOCALLY  IN  SUBROUTINE  ZSHOPS 
BUT  IS  TREATED  AS  COMMON  SO  THAT  IT  WILL  BE  REDIMENSIONED 
AS  REQUIRED.  IT  NEED  NOT  BE  ZEROED  NOR  STORED. 

INTEGER  *4  ZPRTRQ 

COMMON  /  PURGE5  /  ZPRTRQ (NOPART) 


COMMON/TESTS / TTR I AL , TEST 1 , START ( 6 ) , STOP ( 6 ) 


C 

N  EQUIVALENCE  ( Z 1 ( 1) , MAXACN ) ,  (Z2( 1) ,ACN( 1 , 1 )) ,  ( 23 ( 1 ) , SEEDS! 1 ) ) , 
N  X  (Z4(l),SHOPS(l,l,l)),  (ZS( 1 ) .CONFIG ( 1,1)),  ! Zh( 1  )  , NOTASK  1  , 
N  X  (27(1  )  ,  ORDER  1  )  ,  (  Z8(  1 )  ,FKACJB(  1  )) ,  1  )  .NORKPT)  , 
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* 

f 

? 


N  X  ( Z 10 ( 1 1 , AVGTSK (1,1)),  ( Z 1 1  (  1 )  , FEORQT (1,1,1)), 

N  X  lZ12in.BPARTS(l.l,n),  ( Z 1 3  ( 1 )  ,  NOSTAT )  ,  (Z14(  1 )  .TTRIAI.)  , 

N  X  (Z 15 ( 1 ) .COSTS ( 1 ) ) ,  ( Z 1 6 ( 1 ) , OFFMOB (1,1)),  ( Z 1 7 ( 1 ) , TOTALS (1,1,1;) 
C 

N  EQUIVALENCE  (LU1)  ,  PRTCRT (1,1)),  (L2(  1 )  .DEl’OTl  (  1 ) ) , 

N  X  (1.3 (  1  )  , ZTASKS (  1,1,1),  ( L4 (  1 )  , Sll I PTO (1,1,1), 

N  X  (1.5(1),  DAMAGE  (1,1)),  (L6(l),  XM1T(  1 , 1 )  )  , )  ), 

N  X  (1.7(1),  0UTPT4  ( 1 , 1 , 1 , 1 )  ) 

C 


